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NESTE NÚMERO 


UM SIMULADOR DE VÔO (2) 


Ligue as turbinas do avião e levante vôo. Mas não 
deixe de apertar os cintos, porque... o piloto auto- 
mático é muito louco. Este artigo continua a ex- 
plorar as possibilidades de um vôo simulado . 601 


FUNÇÕES SOB ENCOMENDA 


As funções sob encomenda facilitam enormemente 
a resolução de problemas complexos, como cal- 
cular juros compostos, transformar letras maiús- 
culas em minúsculas e encontrar o cubo de um 
NUMETO sis ces e ca ES ER 608 





UM EDITOR DE TEXTO (3) 


À procura incessante da palavra certa tem sido uma 
verdadeira obsessão para grandes escritores. Este 
artigo ensina a fazer isso com a prosaica ajuda do 
computador. E mais: impressão, carta padrão, ajus- 
tes à direita e à esquerda, formatação, etc. 614 
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Ligue as turbinas do avião e observe 
o jogo dos ponteiros no painel 

dos mostradores. Mas não deixe de 
apertar O cinto, pois o 

piloto automático é meio maluco. 


Já vimos como reproduzir o interior 
de uma cabine de avião na tela do mi- 
crocomputador. No programa do arti- 
go anterior para as linhas TRS-Color, 
MSX, Apple e TK-2000, o avião foi dei- 
xado estático, em pleno ar. Evidente- 
mente, uma situação assim nunca ocor- 
re na vida real. 

Neste artigo, nosso aeroplano vai sair 
voando e os instrumentos do painel vão 
ganhar vida, para que possamos acom- 
panhar seu movimento, apesar de ain- 
da não estarmos em condições de mantê- 
lo sob controle. 
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COMO FAZER O AEROPLANO VOAR 


Esta é certamente a parte mais longa 
da listagem: uma série complexa de va- 
riáveis independentes deve ser constan- 
temente calculada para reproduzir e 
controlar o comportamento do aparelho 
em vôo. Ao mesmo tempo, os instru- 
mentos do painel precisam ser redese- 
nhados à medida que a posição e a alti- 
tude do avião sofrem modificações. Da 
mesma forma, os números dos mostra- 
dores são impressos para que saibamos 
sua posição e sua orientação. 





APROXIME-SE DA PISTA 


Uma imagem da pista no radar nos 
mostra o ângulo de aproximação no 
Spectrum e no MSX. No TRS5-Color, 
uma imagem da pista pode ser obser- 


UM PILOTO AUTOMÁTICO 
PARA CONDUZIR O AVIÃO 
APROXIME-SE DA PISTA 
COMO TRAÇAR O RUMO 
FAÇA O PAINEL FUNCIONAR 


vada através da janela, à medida que 
chegamos próximo à pista. Esta apare- 
ce progressivamente, aproveitando a ca- 
pacidade do TRS-Color em desenhar 
elipses. Ja os usuários do Apple e do 
TK-2000 devem se orientar pela bússo- 
la (bearing), pela direção da pista (run- 
way) e pela distância do avião em rela- 
ção ao eixo longitudinal da pista (drift). 





O CURSO DO APARELHO 


Diversos fatores devem ser conside- 
rados para que se possa calcular a po- 
sição do aparelho num dado momen- 
to. A direção em que estamos seguindo, 
por exemplo, é afetada pela dos ventos 
e pela posição dos ailerons instalados 
nas duas asas. A velocidade de cruzeiro 
depende, por sua vez, da intensidade 
do vento. As velocidades de ascensão e 
de mergulho estão sempre relacionadas 
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com a de cruzeiro, e assim por diante. 

Para manter sempre atualizados os 
valores nos mostradores, as variáveis 
têm de ser recalculadas e colocadas no- 
vamente na tela. 


2 LET WY=0: LET WX=0: LET GZ 
=): LET GY=0: LET GX=0 
5 LET BW=0O: LET Y1=120: LET 
Y2=120: LET Y3=40: LET Y4=40 
* LET POW=0: LET GC=0: LET B 
B=0: LET LL=0: LET YC=0: LET 
AD=0: LET ST=0: LET RL=o0: 
LET BC=0: LET NC=0: LET PT=0 
LET PX=0: LET VZ=0: LET VY 
=0: LET VX=0 
500 LET BA=AD*E: 
HA 
510 LET 
1000 LET PZ=PZ+GZ: 
: LET PX=PX+OX 
1025 IF ST=1 THEN 
L:;AT 4,9;"M E R GU L HO”: 
ST=0: GOTO 1040 


LET VX=AS*SIN 


VY=AS*COS RA: RETURN 
LET PY=PY+GY 


PRINT OVER 
LET 


1030 IF AS<30 THEN GOSUE 1500 

1040 LET AD=AD+RL: IF AD<O THEN 
LET AD=AD+360 

1050 IF AD>359 THEN LET AD=AD- 

360 

1060 LET VZ=AS*SIN (PT*C)-10+AS 

(15 


:JU7O LET GZ=VZ: LET GY=VY+WUYT: L 
ET GX=VX+WX 

1080 IF VY=0Q0 THEN 
: GOTO 1100 

1090 LET GD=-ATN (VX/VY)/C 
1100 GOSUB 500 

1110 RETURN 


LET GD=-P1I/2 


1500 LET ST=1: PRINT OVER 1;AT 
L9;"MERGULHO”: FOR Msl 
TO 4: FON N=20 TO -20 STEP -4: 
SOUND .01,N: NEXT N: NEXT M 


1510 LET BRL=INT (RND*21)-9: LET 
PT=-2Z1-INT (RND*5) 

1520 RETURN 

2180 IF GC<>0 THEN GOSUB 2200 

2190 LET AS=AS+16*(TC*30-AS-B*P 

T)/AS: GOSUB 2200: GOTO 2205 

2200 PLOT 35,50: DRAW OVER 1:1 

39*5IN (AS*PI/200), 15*COS (AS*PI 

(200) : RETURN 

2205 IF G€4>20 THEN PLOT 155,50 
DRAW OVER 1, 10*SIN (TN*PI/5) 

+(40*COS (TNZPI/5): PLOT 155,50: 
DRAW OVER 1;15*SIN (UN*PI/500 

) +, 15*C0OS (UN*PI1/500) 

2210 LET TN=PZ/1000: LET UN=PZ- 

1000*INT TN: PLOT 155,50: DRAW 
OVER 1; 10*SIN (TN*PI/5), 10*COS 
(EN*ZPI/5): PLOT 155,50: DRAW 

OVER 1;15*SIN (UN*P1I/500),15*CO 

S (UN*PI/500) 

2220 IF GC<>0 THEN 

2225 IF POW=-1 AND 

ET TC=TC-Z 

2226 IF POW=1 AND TC<8.8 THEN 

LET TC=TC+2 

2228 GOBUB 2230: GOTO 2240 

2230 PLOT 215,50: DRAW OVER 1; 

IS*SIN (TC*XPI/5), 15*COS (TC*PI/ 

>): RETURN 


GOSUB 2230 
TC>2 THEN L 


22:40 PRINT AT 21,2:;ABS INT AD;" 


2250 IF PY=0Q0 THEN LET RB=0: GO 


TO 2260 

2255 LET RB=ATN (PX/PY)/C: IF P 
Y>0 THEN LET RB=RB+180 

2260 IF RE<O THEN LET RB=RB+36 
OQ 


2270 PRINT AT 21,10;INT RB;” " 
JAT 21,18;ABS INT PX;” 
2280 PRINT AT 21,25; INT (SQR (P 


Rc pum v 

2290 IF (T1l<=110 AND Y2<=110) O 
R (71>2=130 AND 72>=130) THEN G 
OTO 2300 

2295 IF 60420 THEN PLOT OVER 

1;%X1,168-Yl: DRAW OVER 1;X2-PE 
EK 23677,168-Y2-PEEK 23678 

2300 LET YC=120+(PT/3): LET Xl= 


BO: LET X2=110: LET Y1l=YC+IZ*TA 
N (RL*2*C): LET Y2=YC-L7*TAN (R 
LAZAC) 

2310 IF (YC<110 OR YC>130) AND 

RL=0 THEN GOTO 2376 

2320 IF YIS110 THEN LET X1=95- 
LD ALIFLALO- TO) /(TI=TC): LET Y 
1=110: GOTO 2340 

2330 IF 71>130 THEN LET X1l=95- 
(925-X1)7(130-YC)/(T1-YC): LET Y 
1=130 

2340 IF Y2<110 THEN LET X2=95- 
(95-22) *(110-TC)/(72-YC): LET Y 
2=110: GOTO 2360 

2350 TF 722130 THEN LET X2=95- 
(95 -NZ)*(130-TC)/(12-TC) +: LET 9 


2=130 


2360 IF X1<80 OR X2>110 THEN G 

OTO 2376 

2370 PLOT OVER 1;X1,168-Y1: DR 

AW OVER 1;X2-PEEK 23677,168-72 
-PEEK 23678 

2376 IF (RL=BRR AND PP=PT) THEN 
GOTO 2500 

2377 IF (Y3<=2 AND Yá<=2) OR (Y 
3>=90 AND Y4>=90) THEN GOTO 23 

BO 

2378 IF GC<>0 THEN PLOT OVER 
1;X3,1/76-Y3: DRAW OVER 1;X4-PE 
EK 23677, (176-Y4)-PEEK 23678 
2380 LET TU=33+PT*A: LET Xa=ll: 
LET X4=244: LET Y3=YC+118*TAN 
(AL*2*C): LET Y4=YC-l18*TAN (BL 
AZRC] 

2390 IF (TC<S2Z OR YC>290) AND BL= 

O THEN GOTO 2450 


2400 IF Y3<2 THEN LET X3=128-( 
120-K3)*(2-1C)/(73-TC): LET TI= 
2: GOTO 2420 

2410 IF Y3>290 THEN LET X3=128- 


(1ZB-K3)T(9DU-TC)/ÃTI-TC): LET É 
3=90 


2420 IF Y4<2 THEN LET X4=12B-( 


128-X4)*(2-TC)/(Yá-YC): LET Yá= 
2: GOTO 2440 
2430 IF Y4290 THEN LET X4=128- 


(128-X4)*(90-YC) /(VY4-YC): LET Y 
4=90 

2440 IF XI<ll OR X4>244 THEN G 
OTO 2500 

2445 OVER 1: PLOT X3,176-Y3: DR 
AW X4-PEEK 23677, (176-Y4)-PEEK 
23678: OVER O 

2500 GOSUB 8000 


2505 IF GC=0 THEN LET GCs1 
ZL910 LET RR=BL: LET PP=SPT: 
RN 
50B0 LET GZ=VZ: 
ET GXK=VK+WX 
5090 LET TC=5 
5100 LET BRT=3: 
=50 
5500 IF INT (RND*5)=1 THEN LET 
AL=RL+INT (AND*5)-2: IF INT (R 
ND*5)=1 THEN LET PT=PT+3-INT ( 
RND*2)+1*2 
5510 GOSUB 1000: 
GoTo 5530 
5520 GOSUB 2180: 
5530 GOTO 5500 
8000 IF GC<>0 THEN PLOT 127,17 
4: DRAW OVER 1;0X,0Y 
B010 LET OX=16*SIN (ARB*(P1I/180) 
): LET 0OY=-(16*ABS COS (RB*(PI/ 
18B0))) 
8020 PLOT 127,174: 
;0X,0Y 
B025 LET WB=AD: 
LET WB=WB-360 
8026 IF RB>180 THEN 
360-RB: GOTO 8040 
8030 LET WB=WB-RB 
8040 IF RW=1 THEN 
:RDX, 1/5-RDY 
B050 LET RW=0: 
N RETURN 
8060 LET RDX=X3+INT (((X4-X3)/2 
)-SIN (WB*(PI/180))*(X4-X3)*6) 
8070 LET RDY=Y3+((Y4-Y3)*( (RDX- 
X3)/(X4-X3))+2) 
8080 IF RDY<2 OR RDY>90 OR 
11 OR RDX>24dá THEN RETURN 


RETU 


LET Gf=VY+WT: L 
LET TP=5: LET WR 


IF PZ<0 THEN 


GoTO 5500 


DRAW OVER 1 
IF AD>180 THEN 


LET WB=WB+ 


PLOT OVER 1 


IF ABS WB>57 THE 


ADXS 

















e 


30) 
1/ 


N 


8090 LET BRW=1l: PLOT 


, L75-ADY 
8100 RETURN 


O POKE na linha 1 trava as linhas 
maiúsculas do computador. A linha 5 
zera todas as variáveis. A linha 110, que 
já foi digitada na primeira parte do pro- 
grama (ou seja, no artigo anterior), en- 
via o computador para a linha 5000, on- 
de é desenhado o interior da cabine. A 
linha 5080 cuida das variáveis que de- 
terminam a posição do avião no espa- 
ço: GZ se refere à distância do apare- 
lho ao longo do eixo Z — sua altitude; 
VZ é a velocidade ao longo desse mes- 
mo eixo; VY é a velocidade ao longo do 
eixo Y — para frente e para trás; WY 
é a velocidade do vento nessa mesma di- 
reção. GX, VX e WX correspondem à 
distância percorrida, velocidade e velo- 
cidade do vento em relação ao eixo X 
— direita e esquerda. 

A linha 5090 estabelece o valor ini- 
cial da rotação do motor. A linha 5100 
define os limites da inclinação do avião 
(RT, relacionada com os movimentos la- 
terais), assim como da ascensão (TP, 
que faz o avião subir ou descer) e da lar- 
gura da pista (WR). 

A linha 5500 é um comando tempo- 
rário encarregado de manobrar o avião 
até o momento em que a rotina de con- 
trole propriamente dita é digitada (o que 
será feito no próximo artigo desta série). 


OVER 1;RDX 


A linha 5510 chama a sub-rotina que 
começa na linha 1000 e termina em 
1110, Essa sub-rotina recalcula os valo- 
res de todas as variáveis à medida que 
o avião se movimenta. As linhas 1025 
e 1030 verificam se o aparelho entrou em 
parafuso, por ter uma velocidade mui- 
to baixa (inferior a 30m por segundo). 
Caso isso aconteça, será chamada a sub- 
rotina 1500, que se encarrega de repro- 
duzir os efeitos de um mergulho. A h- 
nha 5510 impede que possamos prever 
o rumo do avião durante a queda (este 
pode mergulhar diretamente ou então 
entrar em parafuso). 

A linha 1100 chama a sub-rotina 500, 
que calcula o ângulo da trajetória do 
avião, 

A próxima grande sub-rotina a ser 
chamada começa na linha 2180 e termi- 
na em 2510. Ela redesenha os mostra- 
dores e contadores à medida que a in- 
formação que estes trazem se modifica. 
A linha 2180 verifica o contador GC pa- 
ra ver se há algo a ser redesenhado. A 
sub-rotina 2200 desenha a nova posição 
dos ponteiros do mostrador da veloci- 
dade do vento (airspeed). As linhas 2205 
e 2210 calculam e redesenham as duas 
novas posições dos ponteiros que mar- 
cam a altitude. A linha 2230 movimen- 
ta os ponteiros, usando os cálculos das 
linhas 2225 e 2226. 

O contagiros é atualizado pela linha 





2240. As linhas 2250 a 2270 calculam a 
direção da pista (runway) e o desvio do 
avião em relação ao eixo principal des- 
ta última (drift). A distância até o cen- 
tro da pista é calculada e impressa pela 
linha 2280. 

O horizonte artificial do segundo 
mostrador é calculado e desenhado pe- 
las linhas 2280 a 2370, 

A linha 2376 verifica o horizonte que 
aparece na janela, enquanto as linhas 
2377 a 2445 o recalculam e o redese- 
nham, conforme o caso. 

A linha 2500 chama a sub-rotina que 
começa na linha 8000 e termina na 8100. 
Essa sub-rotina calcula e desenha a ima- 
gem da pista no radar, que pode ser vista 
no topo da tela, e o pontinho logo abai- 
xo da linha de horizonte. 
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100 PRINT AND(-TIME) 

500 RA=AD*C:VX=VU*ZSIN(RA) 

510 VY=VVACOS (RA) : RETURN 

1000 PZ=PZ+GZ:PY=PY+GY: PX=PX+GX 

1020 VV=VV+]6*(TC*30-VU-B*PT)/U 

o) 

1030 IF ST=1 THEN LINE(90,1)-(2 
30,8),4,BF:ST=0:GOTO 1050 

1040 IF VV<30 THEN GOSUB 1500 
1050 AD=AD+RL:TF AD<O THEN AD=A 

D+360 

1060 IF AD>359 THEN AD=AD- 360 

1070 VZ=VV*SIN(PT*C)-10+VVU/15 
1080 GZ=VZ:GY=VY+WY:CA=VA+WA 
1090 IF VY=0 THEN GD=-PI/2:GOTO 
1110 

1100 GD=-ATN(VX/VT) /C 

1110 GOSUB 500 

1120 RETURN 

1500 ST=1:X=96:Y=1:COLOR 6 

1510 AS="MERGULHO” :GOSUB 4000:X 

=97/:GOSUB 4000 

1520 PLAY"T255AGFEDCAGFEDC” 

1530 RL=INT(BND(1)*21)-9:PT=-21 

=INT(BND(1)*5) 

1540 RETURN 

2000 COLOR 15 

2005 LINE(35,128)-(35+15*SIN(VI 

*P1/200),128-15*CoOS(V1*P1I/200)) 
8 

2010 LINE(35,128)-(35+15*S5IN(UV 

*P1/200),128-15*C0OS (VV*PI/200)) 

2015 LINE (155,128)-(155+10*SIN( 

TL*PI/5),128-10*COS(TL*P1/5)),8 

2020 TN=PZ/1000:UN=PZ-1000*INT/( 

TN): LINE (155,128)-(155+10*5IN(T 

N*PI/5),128-10*C0S (TN*P1I/5)) 

2025 LINE(155,128)-(155+15*5IN( 

U1L*P1/500),128-15*CoS(UL*P1/500 

11,8 

2030 LINE(155,128)-(155+15*SIN( 

UN*P1/500),128-15*COS (UN*PI/500 

)) 

2035 LINE(215,128)-(215+15*45IN( 

T2*P1/5),128-15*COS(T2*P1I/5)),8 

2040 LINE(215,128)-(215+15*SIN( 

TC*PI/5),128-15*COS (TCYPI/5)) 


2050 COLOR 15:X=16:Y=1BO:AS=STR MM 











S (ARS (INT(AD))) :GOSUB 3900 

2060 IF PY=0 THEN RB=0 ELSE RB= 

ATN(PX/PY)/C:IF PY>0 THEN RB=RBB 

+180 

2070 IF RB<O THEN RB=RB+360 

2080 X=79:AS=STRS (INT (RB)) :GOSU 

B 3900:X=138:AS=STRS (INT(PX)):G 

OSUB 3900 

2090 X=194:AS=STRS (INT(SOR(PY*P 

Y+PX*PX))) :GOSUB 3900 

2100 YC=128+PT:X1=80:X2=110:Yl= 

YC+17*TAN(BL*2*C) :Y2=YC-17*TAN( 

AL*2*C) 

2110 IF(YC<113 OR YC>143) AND R 

L=0 THEN 2320 

2120 IF Y1<113 THEN 

1)*(105-YC) /(T1-TC) 
2140 

2130 IF Y1>143 THEN 
1)*(135-YC) /(Y1-YC) :Tl=143 

2140 IF Y2<113 THEN X2=95-(95-X 
2)*(105-YC) /(Y2-YC) :Y2=113:GOTO 
2160 

2150 IF Y2>143 THEN X2=95-(95-X 
2)*(135-YC)/(Y2-YC) :Y2=1453 

2160 IF X1<B0 OR X2>110 THEN 21 

80 

2165 DRAW "BM81, 128C10R9F5ESR9” 
2170 LINE(X5,Y5)-(X6,76),8:LINE 
(X1,Y1)-(X2,72):X5=X1:Y5=Y1:X6= 

R2:Y6=Y2Z2 

2180 IF X7-R>10 AND X7+A<245 AN 
D 7Y7>0 AND Y7<80 THEN CIRCLE(X7 
87) ,8,4,0,.5,40 

2190 IF RL=RB AND PP=PT THEN 22 


X1=95- (95-X 
“Y1=113:GoT0 


X1=95- (95-X 


90 
2200 IF HF=1 THEN LINE (X3,Y73)- 
(X4,74),4 


2210 HF=0:YC=33+PT*4:X3=16:X4=72 
39: Y3=YC+LIBATAN(AL*2*HC) TA=TC- 
118*TAN(BL*2*C) 

2220 IF(YC<1O OR YC>79) AND BL= 
O THEN 2290 

2230 IF Y3<1l THEN X3=128-(128-X 
3)*(1-YC)/(Y3-YC):Y3=1:GOTO 225 


0 

2240 IF Y3>79 THEN X3=128-(128- 
X3)*(79-YC) /(Y3-YC) :7Y3=79 

2250 IF Y4<i THEN X4=128-(128-X 
4)*(1-YC)/(Y4-YC) :Y4=1:GOTO 227 
Õ 

2260 IF Y4>79 THEN X4=128-(128- 
X4)*(79-YC)/(Y4-YC) :Y4=79 

2270 IF X3I<l6 OR X4>239 THEN 22 
90 

2280 HF=1:LINE(X3,Y3)-(Xd,Y4),1 
5 

2290 WB=AD:IF AD>180 THEN WB=WB 
=360 

2300 IF RB>180 THEN WB=WB+360-R 
B ELSE WB=WB-RB 

2310 IF ABS(WB)>60 AND ABS(PY)> 


1000 THEN 2370 

2320 AN=118/(60*SQR((XI-K4)*(X3 
=X4)+(Y3-Y4)*(Y3-Y4))):X7=(K3I+X 
4) /2+SGN (X3-X4) +WB*AN* (X3-X4) 
2330 Y7=(Y3+Y74)/2+2+WB*XAN* (Y3-Y 
4):IF X/7<l6 OR X7>239 OR Y7<1 O 
A Y7>79 THEN 2370 

2340 IF ABS(PY)<1000 THEN R=8-Y 
7/10 ELSE R=4000/ABS(PY):IF R*1 
0+Y7>80 THEN R=B-Y7/10 

2350 IF Y7<l OR Y7>79 OR X/7-R<1 


X7+R>239 THEN 2370 
CIRCLE(X7,Y7),R,15,0,.5,10 
Vl=VV:Ul=UN:Tl=TN:T2=TC 
RA=AL:PP=PT:RETURN 
LINE(X,Y)-(X+50,Y+8),2,BF 
GZ=VZ:GY=VY+WY:GX=VX+HWX 
TC=s 

RT=3:TP=5:WR=50 

5190 DRAW "BM81,128C1O0OR9F5E5SR9" 
5500 IF INT(RND(1)*10)=1 THEN R 
L=RL-SGN (RL) +INT (RND(1)*5-2) 
5505 IF INT(RND(1)*10)=1 THEN P 
T=PT+3-INT (RND(1)*2+1)*2 

5510 GOSUB 1000:IF PZ<O THEN 55 
30 

5520 GOSUB 2000:GoTo 5500 

5530 GOTO 5530 

A linha 100 “'embaralha as cartas”, 
permitindo a criação de números ao aca- 
so. A 5080 estabelece os valores das va- 
riáveis que controlam a posição do apa- 
relho no espaço, conforme a sua velo- 
cidade e a força e direção do vento. GZ 
nos revela a distância percorrida ao lon- 
go do eixo Z (alto-baixo); VZ, a veloci- 
dade nesse eixo. VY informa a veloci- 
dade ao longo do eixo Y (frente-trás); 
WY, a velocidade do vento nessa mes- 
ma direção; GX, VX e WX correspon- 
dem respectivamente à distância percor- 
rida, à velocidade do aparelho e à velo- 
cidade do vento ao longo do eixo X 
(direita-esquerda). 

A linha 5090 determina a rotação ini- 
cial do motor; a 5100 define os limites 
da inclinação lateral (RT), que faz o 
avião virar; da inclinação frontal (TP), 
que faz o avião subir ou descer, e da lar- 
gura da pista (WR). 

As últimas cinco linhas são coman- 
dos temporários. Elas fazem com que o 
avião voe de maneira irregular, com in- 
clinações laterais e frontais estabelecidas 
ao acaso. 

As sub-rotinas das linhas 1000 a 1120 
recalculam todas as variáveis enquanto 
o aeroplano se movimenta. As linhas 
1030 e 1040 verificam se a velocidade 
caiu abaixo de 30 m por segundo. Quan- 
do isso acontece, é chamada a sub- 
rotina da linha 1500, que recria os efei- 
tos de uma queda ou mergulho, A linha 
1510 introduz um elemento de acaso no 
processo, de maneira que tanto pode- 
mos mergulhar diretamente para o chão 
como podemos entrar em parafuso. A 
sub-rotina 500, que é chamada pela li- 
nha 1110, calcula o ângulo em que o 
aparelho está voando. 

A sub-rotina que vai da linha 2000 à 
linha 2380 cuida do restante do progra- 
ma. Ela atualiza a tela, ajustando o pai- 
nel de instrumentos, que mostra o mo- 
vimento do avião. Para fazer isso, é ne- 
cessário, primeiramente, apagar o anti- 
go conteúdo de cada instrumento e de- 
senhar a seguir os ponteiros correspon- 


6 OR 
2360 
2370 
2380 
3900 
5080 
5090 
5100 


| | 
] | | | 


dentes à nova posição do aparelho. 

O mostrador da velocidade do vento 
é atualizado pelas linhas 2005 e 2010, en- 
quanto as linhas 2015, 2020, 2025 e 2030 
cuidam do mostrador de altitude. O 
contagiros é modificado pelas linhas 
2035 e 2040; a linha 2050 corrige a dire- 
ção em que o avião está seguindo (bea- 
ring, que é o ângulo da bússola medido 
em graus). A direção da pista (runway, 
também em graus) é modificada pelas 
linhas 2060 a 2080, e o novo valor da 
distância é impresso pela linha 2090. 

A linha 2190 verifica se o horizonte 
deve ser modificado, enquanto as linhas 
2100 a 2170 desenham o novo horizon- 
te artificial no mostrador corresponden- 
te. O horizonte é desenhado pelas linhas 
2200 a 2280. 

A nova posição da pista é calculada 
pelas linhas 2290 a 2360. A 2350 verifi- 
ca se a pista pode ser desenhada na te- 
la. A 2180 apaga a versão antiga quan- 
do uma nova é desenhada. 

Execute então o programa e veja o 
avião voar sozinho... por enquanto. 


“é | FPRERESESCAS 


B00 RA = AD * C:VX = AS * SIN 
(RA) 
BlL0O VY = AS * COS (RA): RETURN 


1000 PZ = PZ + GZ:PY = PY + GT: 
PX = PX + GX 

1020 AS = AS + 16 * (TC * 30 - 
AS - 8 * PT) / AS 


41030 IF ST = 1 THENST=õO: GO 
TO 1050 
1040 IF AS < 30 THEN GOSUB 15 
00 
1050 AD = AD + BL: IF AD < O TH 
EN AD = AD + 360 
1060 IF AD > 359 THEN AD = AD 
- 360 


1070 VZ = AS * SIN (PT * CC) - 
LU 4 ADS do 


1080 GZ = VZ:G7 = Ur + WYT:GX = 


VX + WX 

1090 IF VY = O THEN GD = - PI 
f 2: GOTO 1110 

1100 GD = - ATN (VX / VY) / € 
1110 GOSUB 800 

1120 RETURN 

1500 ST = 1 

1510 RL = INT ( AND (1) * 21 + 
1) - 10:PT = = 20 - INTA RN 

D (1) *5 + 2) 

1520 RETURN 

2000 HCOLOR= O 

2010 HPLOT 41,134 TO 41 + 20 * 


SIN (Al * PI / 200),134 - 20 
* COS (Al * PI / 200) 
2015 HCOLOR= 3: HPLOT 41,134 T 


O 41 + 20 * SIN (AS * PI / 200 
),134 - 20 * cOoS (AS * PI / 20 
0) 

2020 HCOLOR= O: HPLOT 177,134 


TO 177 + 15 * SIN (T1L * PI / 5 








Joljé = 15 * GOB (TI * PI / 5) 


2025 HCOLOR= 3:TN = PZ / 1000: 
UN = PZ - 1000 * INT (TN): RPL 
OT 177.134 TO 177 + 15 * SIN ( 
TN * PI / 5),134 - 15 * Cos «T 
N* PI / 5) 

2030 HCOLOR= 0: HPLOT 177,134 


TO 177 + 20 * SIN (UL * PI /5 


00).134 - 20 * COS (UI * PI / 
500) | 

2035 HCOLOR= 3: HPLOT 177,134 
TO 177 + 20 * SIN (UN *PI/5 
00),134 - 20 * COS (UN * PI / 
500) 

2040 HCOLOR= O: HPLOT 245,134 


SIN (T2 * PI / 5 
Yoljd = 20 * €05 (TZ * PI / 5) 
2045  HCOLOR= 3: HPLOT 245,134 
TO 245 + 20 * SIN (TC * PI / 5 
Juddd = 20 * 08 (TOC TPL / 5) 
2050 L = 23:€C = 4:AS = LEFTS « 
STARS ( ABS ( INT (AD))) + * 


To 245 + 20 * 


",3): GOSUB 4000 

2060 IF PY = O THEN RB = O: GO 

To 2070 

2062 RB = ATN (PX / PY) / € 

2065 IF PY > O THEN RB = RB + 
180 

2070 IF RB < O THEN RB = RB + 
360 

2080 C = 14:AS = LEFTS ( STRS$ 
( INT (RB)) + ” ",3): GOSUB 4 
000:C = 24:AS9 = LEFTS ( STRS ( 
INT (PX)) + * ",4): GOSUB 4 
000 

2090 C = 32:AS = LEFTS ( STR$ 
( INT ( SOR (PY * PY + PX * PH) 
Do RE Am ",5): GOSUB 4000 


2100 VC = 134 + PT:X1 = 90:X2 = 
130:Y1 = YC + 17 * TAN (BL * 


2% C):Y2 = YC- 17 * TAN (AL 
* 2 * C) 
2110 IF (VC < 119 OR YC > 149) 


AND RL = O THEN 2380 


2120 IF Y1 < 119 THEN 
- (110 - X1) * (119 - 
| = YC):Yl = 119: GOTO 

2130 IF Y1 > 149 THEN 
- ()10 - X1) * (149 - 

1 - YC):Yl = 149 

—82140 IF Y2 < 119 THEN 
- (110 - X2) * (119 - 
2 = YC):Y2 = 119 

2150 IF Y2 > 149 THEN 
- (110 - X2) * (149 - 
2 = YC):Y2 = 149 

2160 IF X1 < 90 OR X2 

EN 2190 

2170 HCOLOR= O: 
X6,76 

2175 HCOLOR= 3: 
X2,Y2 

2177 HCOLOR= 5: HPLOT 85,138 T 

O 104,138 TO 109,148 TO 114,138 


xl = 110 
EC) 4 (k 
2140 

Xx1 = 110 
YC) 4 


X2 = 110 
EC) 4 (M 


X2 = 110 
YC) 7 t& 


2 130 TH 


HPLOT X1,Y1 TO 


TO 134,138 | 
2190 IF RL = RRAND PP <= PT TH 
EN 2380 
2200 IF HE = 1 THEN HCOLOR= 0 


: HPLOT X3,Y3 TO X4,Y4 
2210 HE = 0:VYC = 33 + PT * 4:X3 
- 11:X4 = 275:73 = YC + 118 * 
TAN (BRL * 2 *% C):yá = TC - 118 

* TAN (BL * 2 *% C) 


(vYC < 10 OR YC > 79) À 
O THEN 2380 


2220 IF 
ND RL = 


2230 IF Y3< 1 THENXI ES ISS - 
(143 = X2) NM 41 =0ECN A tas = 

CO) 73 = Il: GOTO 2250 

2240 TE Y3 > 79 THENX3=lI43 

- (143 - 33) * tia - VC) 4 fts 

- YC):YI3 = 79 

2250 IF Y4 < 1 THEN X4 = 143 - 
(143 = X&) * (4 = TE) df Ma - 

YO) :Y4 = 1: GOTO 2270 

2260 IF Y4 > 79 THEN X4 = 143 

- (143 - X4) * (79 - TC) / (Y4 

- YC):Yáã = 79 

2270 IF X3<I1100%X%X4>zZ7> TA 

EN 2380 

2280 HF = 1: HCOLOR= 3: HPLOT X 

3,73 TO X4,Y4 

23B0 RA = BL:PP = PT:Al = AS:UL 
= UN:T]I = TN:T2 = TC:X5 = X1:7 

5 = YlL:X6 = R2:Y6 = Y2: RETUAN 

S080 OZ = VZ:6Y = UY + WY:GX = 

VX + WK 

4090 TC = 5 

8100 BT = 3:TP = 5:WR = 50 

5500 IF INT ( BND (1) * 10 + 

1) = 1 THEN BL = RL - SGN (BL) 
+ tt INT O CAND (1) * 5 + 2) =3 

) 

55805 IF JINT ( BND (1) * 10 + 

1) = 1 THEN PT = PT + 3- INT 
CANO 1390% 204%) FZ 

5510 GOSUB 1000: TF PZ < O THE 

N 5530 

5520 GCOSUB 2000: GOTO 5500 

5530 GoTo 5530 


A linha 5080 estabelece os valores das 
variáveis que controlam a posição do 
aparelho no espaço, de acordo com a 
sua velocidade e a força e a direção do 
vento. GZ informa sobre a distância 
percorrida ao longo do eixo Z (alto- 
baixo); VZ nos dá a velocidade nesse ei- 
xo; VY, a velocidade ao longo do eixo 
Y (frente-trás); WY, a velocidade do 
vento nessa mesma direção. Da mesma 
forma, GX, VX e WX correspondem, 
respectivamente, à distância percorrida, 
à velocidade do avião e à velocidade do 
vento ao longo do eixo X (direita- 
esquerda). 

A linha 5090 determina a rotação imi- 
cial do motor, a 5100 define os limites 
da inclinação lateral (RT), que faz o 
avião virar; da inclinação frontal (TP), 
que faz o avião subir ou descer, e da lar- 
gura da pista (WR). 

As últimas cinco linhas são coman- 
dos temporários. Elas fazem com que o 
avião voe de maneira irregular, com in- 
clinações laterais e frontais estabelecidas 
ao acaso. 

As sub-rotinas das linhas 1000 a 1120 
recalculam todas as variáveis enquanto 
o aeroplano se movimenta. As linhas 
1030 e 1040 verificam se a velocidade 
caiu abaixo de 30 m por segundo. Quan- 
do isso acontece, é chamada a sub- 
rotina da linha 1500, que recria os efei- 


tos de uma queda ou mergulho. A linha 
1510 introduz um elemento de acaso no 
processo, de forma que tanto podemos 
mergulhar diretamente para o chão co- 
mo entrar em parafuso. A sub-rotina 
500, que é chamada pela linha 1110, é 
encarregada de calcular o ângulo em que 
o aparelho está voando. 

A sub-rotina que vai da linha 2000 à 
2380 cuida do restante do programa. Ela 
atualiza a tela, ajustando o painel de ins- 
trumentos, que mostra o movimento do 
avião. Para isso, é necessário apagar O 
antigo conteúdo de cada instrumento e 
desenhar os ponteiros correspondentes 
à nova posição. 

O mostrador da velocidade do vento 
é atualizado pelas linhas 2010 e 2015, en- 
quanto as linhas 2020, 2025, 2030 e 2035 
cuidam do mostrador de altitude. O 
contagiros, por sua vez, é modificado 
pelas linhas 2040 e 2045; a linha 2050 
corrige a direção em que o avião está 
voando (bearing, que é o ângulo da bús- 
sola medido em graus). A direção da pis- 
ta (runway, também em graus) é modi- 
ficada pelas linhas 2060 a 2080, e o no- 
vo valor da distância é impresso pela li- 
nha 2090. 

A linha 2090 também verifica se o ho- 
rizonte deve ser modificado, e as linhas 
2100 a 2170 desenham o novo horizon- 
te artificial no mostrador corresponden- 
te. O horizonte verdadeiro é desenhado 
pelas linhas 2200 a 2280. 

Execute então o programa e veja o 
avião voar sob o controle do piloto au- 
tomático. 

| possível que, após alguns minutos 
de vôo, a tela gráfica comece a ser 
preenchida por pontos aleatórios que es- 
tragam o desenho. Isso acontece sempre 
que usamos muitos cordões. No nosso 
caso, é a variável A$ (responsável pela 
impressão dos contadores) que é usada 
a todo instante. 

Não se alarme. O próximo artigo re- 
solverá o problema, e permitirá que vo- 
cê assuma o controle do aparelho. 


500 RA=AD*C:VX=VVU*SIN(RA) 

510 VY=VV*COS (RA) : RETURN 

1000 PZ=PZ+GZ:PY=PY+GY: PX=PK+GX 

1020 VV=VV+16*(TC*30-VVU-B*PT)/U 

y 

1030 IF ST=1 THEN PMODE 4,1:DBA 

W"BM108,40C0":AS="MERGULHO”:GOS 

UB 4000:DRAW"C5":ST=0:GOTO 1050 

1040 IF VV<30 GOSUB 1500 

1050 AD=AD+RL: IF AD<SO THEN AD=A 

D+360 

1060 IF AD>359 THEN AD=AD-360 

1070 VZ=VV*SIN(PT*C)-10+VV/15 
1080 GZ=VZ:GY=VY+HWY:GK=VX+WX 
1090 IF VY=0 THEN GD=-PI/2:GOTO 
1110 
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1100 GD=-ATN(VK/VY) /C 

1110 GOSUB 500 

1120 RETURN 

1500 PMODE 4,1:5T=1:DRAW'BMIUB, 
40": AS$="MERGULHO” : GOSUB 4000:PL 
AY"T2O0AGFEDCAGFEDC” 

1510 AL=AND(21)-10:PT=-20-RND(5 


) 
1520 RETURN 


li , pri 
Per. 
NA 


2000 PCOPY 5 TO 7:PCOPY 6 TO B: 
PMODE 4,5 

2010 LINE (35,120)-(35+20*5IN(VV 
*P1/200),120-20*C0OS (VV*PI/200)) 
| FSET 

2020 TN=PZ/1000:UN=PZ-1000+*INT( 
TN) : LINE (155,120)-(155+15*5SIN(CT 
N*PI/5),120-15*COS(TN*PI/5)),PS 
ET 


2030 LINE(155,120)-(155+20*SIN( 
UN*P1/500),120-20*C05 (UN*PI/500 
1)  PSET 

2040 LINE(215,120)-(215+20*SIN( 
TC*P1/5),120-20*COS(TC*PI/5)),P 
SEI 

2050 DRAW"BMLO6O,1/25B" :AS=STRSTA 
BS (INT (AD) )) :GOSUB 4000 

2060 IF PY=0 THEN ARB=0 ELSE RB= 








ATN(PX/PY)/C:IF PY>0 THEN RB=RB 
+1 80 

2070 IF ARB<0O THEN RB=RB+360 
2080 DRAW"BM80,172":AS=STRS (INT 
(RB) ) :GOSUB 4000:DRAW"BM140,172 
":AS=STRS (ABS (INT(PX))) :GOSUB 4 
000 

2090 DRAW"BM196,172":AS=STRS (IN 

T(SQR(PY*PY+PX*PX))) :GOSUB 4000 
2100 YC=120+PT:X1=80:X2=110:Y1= 
YC+17*TAN(BRL*2*C) :Y2=YC-17*TAN( 
RL*2*C) 

2110 IF (YC<105 OR YC>135)AND R 
L=0 THEN 2320 

2120 IF Y1<105 THEN X1=95-(95-X 
1)*(105-YC)/(Y1l-YC) :Y1=105:GOTO 
2140 

2130 IF Y1>135 THEN X1=95-(95-X 
1)*(135-YC)/(Y1-YC) :71=135 

2140 IF Y2<105 THEN R2=95-(95-X 
2)*(105-YC)/(Y2-YC):Y72=105:GOTO 
2160 

2150 IF Y2>135 THEN X2=95-(95-X 
2)*(135-YC) /(Y2-YC) :Y2=135 

2160 IF X1<BO OR X2>110 THEN 21 
BO 

2170 LINE(X1,Y1)-(X2,Y2), PSET 
2180 PMODE 4,1:IF X5-R>10 AND X 
5+R<245 AND 75>0 AND Y5<80 THEN 
CIRCLE (X5,75),R,0,10,0,.5 
2190 IF RL=RR AND PP=PT THEN 22 

90 

2200 IF HFE=1 THEN LINE (X3,Y3)- 
(X4,Y4), PRESET 

2210 HF=0:YC=33+PT*4:X3=11:X4=2 

d4:YI=YC+IIB*TAN(AL*2*4C) :YA=YC- 
L18*TAN(BL*2*C) 

2220 IF(YC<1IO OR YC>79) AND RL=0 
TREN 2290 

2230 IF Y3<l THEN X3=128-(128-X 
3)*(1-7YC) /(Y3-YC):Y3=1:GOTO 225 
É] 

2240 IF 73>79 THEN X3=128-(12B- 

X3)*(79-YC) /(Y3-YC) :73=79 

2250 IF Y4<l THEN X4=128-(128-X 
q)*(1-YC)/(Y4-YC) :Y4=1:GOTO 227 
O 

2260 IF Y4>79 THEN Xd=128-(128- 
X4)*(79-YC) /(Y4-YC) :Yd=79 

2270 IF X3<ll OR X4>244 THEN 22 
90 

2280 HF=1:LINE(X3,Y3)-(X4,Y4),P 
SET 

2290 WB=AD:IF AD>180 THEN WB=WB 
=360 

2300 IF RB>180 THEN WB=WB+360-R 
B ELSE WB=WE-RB 

2310 IF ABS(WB)>60 AND ABS(PY)> 
1000 THEN 2370 

2320 AN=118/(60*5QR((X3-X4)*(X3 
-K4)+(Y3-Y4)*(73-Y4))):X5=(X3+X 
4) /2+S5GN (X3-X4) +WBXAN* (X3-X4) 
2330 Y5=(VY3+Y74) /2+2+WB*AN* (Y3-Y 
d4):IF X5<1l1l OR X5>244 OR Y5<1 O 
R 75>79 THEN 2370 

2340 IF ABS(0Y7)<1000 THEN A=8B-Y 
5/10 ELSE R=4000/ABS(PY):IF R*1 
0+75>80 THEN R=B-Y5/10 

2350 IF Y5<1lO OR Y5>79 OR X5-Rs 
11 OR X5+R>244 THEN 23/70 

2360 CIRCLE (X5,75),R,5,10,0,.5 
2370 PCOPY 7 TO 3:PCOPY 8 TO 4 
2380 RA=AL:PP=PT:RETURN 


5080 GZ=VZ:GY=VY+WY:GK=VX+WX 
5090 TC=5 

5100 BT=3:TP=5:WA=50 

5500 IF RND(10)=1 THEN RL=RL-SG 
N(BL)+ (RND(5)-3) 

5505 IF RND(10)=1 THEN PT=PT+3- 


RND (2)*2 
5510 GOSUB 1000:IF PZ<O THEN 55 
30 


5520 GOSUB 2000:GOTO 5500 
5530 GOTO 5530 


A linha 5080 estabelece os valores das 
variáveis que controlam a posição do 
aparelho no espaço, conforme a sua ve- 
locidade e a força e direção do vento. 
GZ revela a distância percorrida ao lon- 
go do eixo Z (alto-baixo); VZ, a veloci- 
dade neste eixo; VY, a velocidade ao 
longo do eixo Y (frente-trás); WY, a ve- 
locidade do vento nessa mesma direção. 
Por sua vez, GX, VX e WX correspon- 
dem, respectivamente, à distância per- 
corrida, à velocidade do aparelho e à ve- 
locidade do vento ao longo do eixo X 
(direita-esquerda). 

A linha 5090 determina a rotação ini- 
cial do motor; a 5100 define os limites 
da inclinação lateral (RT), que faz o 
avião virar; da inclinação frontal (TP), 
que faz o avião subir ou descer, e da lar- 
gura da pista (WR). 

As últimas cinco linhas são coman- 
dos temporários. Elas fazem com que o 
avião voe de maneira irregular, com in- 
clinações laterais e frontais estabelecidas 
ao acaso. 

A sub-rotina das linhas 1000 a 1120 
recalcula todas as variáveis enquanto 
o aeroplano se movimenta. As linhas 
1030 e 1040 verificam se a velocidade 
caiu abaixo de 30 m por segundo. Quan- 
do isso acontece, é chamada a sub- 
rotina da linha 1500, que recria os efei- 
tos de uma queda ou mergulho. A linha 
1510 introduz um elemento de acaso no 
processo, de forma que tanto podemos 
mergulhar diretamente para o chão co- 
mo entrar em parafuso. A sub-rotina 
500, que é chamada pela linha 1110, é 
incumbida de calcular o ângulo em que 
o aparelho está voando. 

A sub-rotina que vai da linha 2000 a 
2380 cuida do restante do programa. Ela 
atualiza a tela, ajustando o painel de ins- 
trumentos que mostram o movimento 
do avião. 

A linha 2000 transfere a versão ori- 
ginal da cabine para outra parte da me- 
mória. O mostrador da velocidade do 
vento é atualizado pela linha 2010, en- 
quanto as linhas 2020 e 2030 cuidam do 
mostrador de altitude. O contagiros é 
modificado pela linha 2040, enquanto a 
2050 corrige a direção em que o avião 
está seguindo (bearing, que é o ângulo da 
bússola medido em graus). A direção da 


Como melhorar a velocidade de exe- 
cução do simulador de vôo? | 
| O programa de simulação de vôo é 
bastante lento. Isso acontece porque 
ele foi escrito em linguagem BASIC in- 
terpretada, com um grande número de 
equações a serem resolvidas a cada 
passo da simulação, e de gráficos com- | 
plexos a serem desenhados. Uma das 
soluções para o problema seria colocar 
mais comandos por linha, e tirar espa- 
cos em branco; isso, porém, tornaria o 
programa mais difícil de ser entendido 
e corrigido, sem aumentar muito a ve- 
locidade. 

Uma saída (para quem dispõe de um 
micro com unidade acionadora de dis- 
quetes) consiste em utilizar um compf- 
tador para o programa. Um compilador 
é um programa especial que traduz um 
outro programa desenvolvido em lin- 
guagem de alto nível (como o BASIC) 
para código de máquina. Com ele, a ve- | 
locidade de execução chega a aumen- | 
tar de dez a trinta vezes, dependendo | 
do modelo usado. 

Quase todos os micros dispõem de 

compiladores para a linguagem BASIC. 
E o caso das linhas Apple, TRS-BO e 
TRS-Color, por exemplo. O Spectrum 
eo ZX-B1, porém, não contam com es- 
se tipo de recurso. Para a linha MSX, 
o compilador BASIC é encontrado ape- 
nas no exterior. 





pista (runway, também em graus) é mo- 
dificada pelas linhas 2060 a 2080, e o no- 
vo valor da distância é impresso pela li- 
nha 2090, 

A linha 2190 verifica se o horizonte 
deve ser modificado, enquanto as li- 
nhas 2100 a 2170 desenham o novo ho- 
rizonte artificial no mostrador corres- 
pondente. O horizonte verdadeiro é de- 
senhado pelas linhas 2200 a 2280. 

A nova posição da pista é calculada 
pelas linhas 2290 a 2360. A linha 2350 
verifica se a pista pode ser desenhada na 
tela (a pista aumenta de tamanho à me- 
dida que o avião se aproxima). A linha 
2180 apaga a versão antiga quando uma 
nova é desenhada. 

Todas essas modificações foram fei- 
tas de maneira invisível, em uma página 
oculta da tela. A linha 2370 transfere o 
desenho para a tela usando PCOPY, de 
modo que todas as alterações parecem 
ocorrer simultaneamente. 
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ENCON 


Um computador é capaz de resolver 
problemas matemáticos muito mais ra- 
pidamente do que qualquer pessoa. En- 
tretanto, ele só faz o que for programa- 
do para fazer, seja por você, seja por um 
programa pronto, carregado previamen- 
te na máquina. 

A linguagem mais utilizada para pro- 
gramação de microcomputadores é o 
BASIC. Em sua maioria, os micros pes- 
soais passam a aceitar comandos nessa 
linguagem assim que são ligados. 

O interpretador BASIC de seu com- 
putador conta com uma série de funções 
matemáticas padronizadas: com elas, O 
programador pode solicitar cálculos ma- 
temáticos complexos, como raiz quadra- 
da, logaritmo, funções trigonométricas 
e outros. Cada uma dessas funções é de- 
finida de tal modo que, assim que reco- 
nhece a função, o interpretador toma o 
valor fornecido para ela pelo programa- 
dor e executa a operação apropriada. O 
nome dado às funções evoca as opera- 
ções que elas realizam: por exemplo, 
SQR (square root, ou raiz quadrada, em 
inglês), LOG (logaritmo), COS (cosse- 
gno) etc. 
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FUNÇÕES BÁSICAS 


Tudo corre bem quando as funções 
que se pretende usar em um programa 
existem no BASIC do computador. Mui- 
tas funções matemáticas e não matemá- 
ticas, porém, não fazem parte do BASIC 
padrão. Por exemplo, não há nenhuma 
função chamada CUBE, que seria mui- 
to útil para calcular automaticamente o 
cubo de um número (n x n X n). 

Mas nem tudo está perdido: feliz- 
mente há alternativas para quando o 
programador precisar de uma função 
não disponível no BASIC. A primeira 
seria evitar o emprego de funções no 
programa: cada vez que um cálculo de 
cubo precisa ser realizado, por exemplo, 
pode-se colocar a expressão completa 
dentro de um comando LET. Se isso 
não for possível — pois o programa fi- 
caria desnecessariamente longo —, 
pode-se programar uma sub-rotina, que 
efetuará os cálculos necessários. 

A solução mais elegante, entretanto, 
consiste em um recurso de muitos interpre- 
tadores BASIC, que permite a definição de 


Calcular juros compostos? Encontrar o 
cubo de um número? Transformar 
letras maiúsculas em minúsculas? Tudo 
isso se torna simples quando 

se trabalha com funções sob encomenda. 


funções do usuário. Estas agem como fun- 
ções de encomenda, que atuam apenas 
dentro do programa no qual foram defi- 
nidas. Essa opção existe para os usuários 
de computadores das linhas Spectrum, 
TRS-80 (com BASIC nível II), TRS- 
Color, MSX, Apple II e TK-2000. Os mi- 
cros das linhas ZX-81 e TRS-80 (baseado 
em fita cassete) não oferecem essa possi- 
bilidade. Em alguns micros, o recurso de 
definição de funções é bastante poderoso; 
em outros, como veremos, é mais limitado. 

As funções definidas pelo usuário 
dão ao programador a capacidade de 
ajustar o BASIC do computador con- 
forme as necessidades de um programa 
em particular. Os comandos usados pa- 
ra definir uma função diferem ligeira- 
mente de computador para computador, 
mas seguem em geral esta forma básica: 


DEF FN a (x) = expressão 


Aqui, a letra a é o nome da função 
(necessário para quando você quiser uti- 
lizar essa função em outro ponto do pro- 
grama, “'chamando-a” pela mesma le- 
tra). O x entre parênteses é o parâme- 
tro da função, ou seja, o valor a ser for- 
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necido para que a função efetue os cál- 
culos. Alguns computadores (Apple, 
TK-2000, MSX e TRS-80) permitem 
dois ou mais parâmetros, enquanto ou- 
tros (TRS-Color), apenas um. 

Para entender o princípio geral de de- 
finição e utilização de uma função em 
um programa, digite e execute o exem- 
plo a seguir. O programa calcula o cu- 
bo de um número qualquer: 


10 CLS 

20 PRINT “NUMERO” ,"CUBO” 
30 FOR a=1 TO 20 

40 PRINT a,EN cla) 

50 NEXT a 

60 DEF EN c(x)=x*x*x 

10 DEF ENC(X) =X*X*X 

30 PRINT "NUMERO”,"CUBO” 
40 FOR A=1 TO 13 

50 PRINT A,FENC(A) 

60 NEXT 


Uma observação interessante é que, 
no caso do Spectrum, o computador 
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nunca chega a atingir a linha 60, onde 
a função FNC é definida. Dessa forma, 
a declaração DEF FN funciona como 
uma linha DATA. Nos demais compu- 
tadores, a linha contendo o DEF FN de- 
ve ser encontrada pelo programa antes 
que a função correspondente seja cha- 
mada. Assim, é conveniente colocá-la 
logo no início do programa. 
Entretanto, os modelos da linha 
Spectrum procuram automaticamente 
por linhas contendo DEF FN, toda vez 
que uma função é invocada. Por isso, 
costuma-se agrupar todos os DEF FN 
no começo do programa, de modo a dar 
a este maior velocidade de execução. 





COMO CHAMAR UMA FUNÇÃO 


Para executar uma função, você tem 
apenas que digitar seu nome (ou seja, a 
letra usada em sua definição) logo após 
a expressão FN, e no ponto do progra- 
ma escolhido para utilização do resul- 
tado do cálculo elaborado por essa fun- 
ção. Isso pode ser visto na linha 40 do 
programa para o Spectrum, e na linha 
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50 do programa para os demais compu- 
tadores. No exemplo dado, o programa 
utiliza FNC(A), em vez de FNC(X), co- 
mo aparece na definição (linha 60 para 
o Spectrum, e linha 10 para os demais). 
No caso, A (ou a para o Spectrum) é o 
valor do número cujo cubo queremos 
obter, ou seja, A é o parâmetro real da 
função. Como a variável x, usada na 
DEF FN serve apenas para especificar 
como o parâmetro será usado na expres- 
são de cálculo, ela é chamada pseudo- 
parâmetro. 

Portanto, mesmo que o parâmeiro 
seja diferente a cada chamada da fun- 
ção FNC em um programa, a fórmula 
dada permitirá que se faça o cálculo cor- 
reto e que o resultado seja retornado ao 
programa exatamente como as outras 
funções pré-programadas fazem (SQR, 
COS, LOG etc.). Assim, a função esta- 
belecida pelo usuário pode ser tratada 
como se fosse uma espécie de abrevia- 
ção para a fórmula de cálculo especifi- 
cada em sua definição. 

No caso de uma função tão simples 
como a do exemplo, você poderia pen- | 
sar que seria mais rápido usar a expres- 











são X x X x X do que definir a função 
só para poder usá-la depois. De fato, es- 
te é apenas um exemplo. O uso de fun- 
ções definidas pelo usuário só será ren- 
tável quando elas forem chamadas em 
vários pontos do programa, de preferên- 
cia com parâmetros que variem. Aí, a 
economia é realmente notável. Além dis- 
so, DEF FN é capaz de trabalhar com 
expressões matemáticas muito mais lon- 
gas e complexas do que esta. 

Uma boa maneira de aprender como 
funciona DEF FN em um programa é 
experimentar com o exemplo citado, 
mudando a definição da função de di- 
versas formas (dividindo o parâmetro 
por 10, por 2000, calculando a raiz qua- 
drada etc.). Para verificar se a função 
definida por você calculou corretamen- 
te, compare os resultados obtidos por 
ela com os obtidos pelo uso da mesma 
fórmula, em modo direto. 





O NOME DAS FUNÇÕES 


Diversas funções podem ser definidas 
dentro de um mesmo programa. Cada 
uma delas deve ter um nome, que varia 
com o computador. Esse nome é geral- 
mente um caractere (ou cadeia de carac- 
teres) colocado imediatamente após o 
DEF FN, Os micros da linha Spectrum 
só admitem uma letra. Os demais micros 
podem usar até dois caracteres. Desse 
modo, o nome de uma função enfrenta 
as mesmas restrições que um nome de 
variável: o primeiro caractere deve ser 
obrigatoriamente uma letra, e o segun- 
do, uma letra ou um número; além dis- 
so, não podem ser utilizados caracteres 
especiais. Se forem usadas mais de duas 
letras no nome de uma função, o Spec- 
trum reconhecerá apenas as duas primei- 
ras (no exemplo dado, DEF FNCUBO 
será aceita equivalendo a DEF FNCU, 
e não a DEF FNC). 





DEFINA OS PARÂMETROS 


O próximo passo na definição de 
uma função consiste em adicionar os pa- 





râmetros. Estes são formados pelos va- 
lores entre parênteses que devem ser for- 
necidos para que a função efetue o cál- 
culo. Embora possam ser parecidos com 
variáveis dentro do DEF FN, eles são, 
de fato, apenas pseudovariáveis, que va- 
lem só para a definição. 

Tudo o que os parâmetros fazem é 
“dizer” ao computador qual o número 
de valores a serem usados no cálculo. 
Em outras palavras, se você começar 
uma definição deste modo: 

DEF FNE (A,B,C) = 

então o computador esperará que o pro- 
grama forneça três números toda vez 
que FNE for chamada (um erro de sin- 
taxe ocorrerá na maioria dos micros, se 
um número errado de parâmetros for 
fornecido ao se chamar a função). 
Quando a função for chamada, os três 
parâmetros do exemplo podem ser ofe- 
recidos como constantes ou como va- 
riáveis. 

Embora os parâmetros usados na 
DEF FN não sejam variáveis, você po- 
de encará-los como tal, ou seja, como 
uma espécie de variável local, que vale 
apenas na definição. Eles devem ocor- 
rer na expressão após o sinal de igual- 
dade, com o nome com que foram indi- 
cados entre parênteses. Exemplo: 


DEF FNE (A,B,C)=10 + A * B / € 


Os parâmetros podem ser variáveis nu- 
méricas ou alfanuméricas. Mais adiante, 
veremos algumas aplicações para funções 
de tratamento de cadeias alfanuméricas. 

Já que não são a mesma coisa, pará- 
metros e variáveis podem ter os mesmos 
nomes, sem que isso implique em inter- 
ferências dos primeiros sobre as segun- 
das e vice-versa. 
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QUANTOS PARÂMETROS? 


A declaração DEF FN nos micros das 
linhas Apple, TK-2000 e TRS-Color é 
menos versátil do que nos demais com- 
putadores, pois permite apenas um pa- 
râmetro. Todos os outros valores pre- 
sentes na expressão aritmética restante 
precisam ser constantes. 

Suponhamos que você queira multi- 
plicar um valor qualquer por 9.81, co- 
mo parte da função que está definindo. 
O valor a ser multiplicado poderá rece- 
ber o nome do único parâmetro dispo- 
nível, por exemplo, A; a expressão de 
definição da função será 9.81 x A. 

Os outros tipos de computador per- 
mitem o uso de quantos parâmetros fo- 
rem necessários, desde que a definição 
completa da função esteja contida em 
uma única linha. Quando a função for 
chamada, deve-se especificar um núme- 
ro igual de parâmetros, como foi esta- 
belecido na definição, mesmo que haja 
alguns parâmetros a mais que não fo- 
ram usados na expressão de definição. 

Agora, se você quiser verificar esse 
fato na prática, digite NEW e experi- 
mente colocar o programa a seguir (não 
há uma versão para os micros das linhas 
TRS-Color, Apple e TK-2000): 


ES nes 


10 DEF FN a(la,b,c,d,e,f)=a*fa* 
b 

20 PRINT 
ros” 

30 INPUT a,b 

40 PRINT EN a(a,b) 


Quando você tentar executar o pro- 
grama acima, verificará que ele acusa 
um erro na linha 40, Experimente então 
substitui-la por: 


"Tntroduza dois nume 


40 PRINT FNa (a,b,0,0,0,0) 


O programa passará então a funcio- 
nar, embora ele não use nenhuma infor- 
mação adicional. 











IE 
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POR QUE USAR UMA FUNÇÃO? 





A vantagem das funções em relação 
às expressões torna-se evidente quando 
é preciso utilizar uma mesma expressão 
em vários pontos de um programa. Nes- 
te caso, o emprego de funções pré- 
definidas economiza memória e tempo 
de digitação e de execução. 

A função definida pelo usuário tam- 
bém é útil quando a expressão é muito 
grande e passível de erros de digitação. 

A seguir, apresentamos um exemplo 
de função matemática que se pode usar 
repetidas vezes em um programa. Ela ar- 
redonda um número qualquer, forneci- 
do por meio de um INPUT, fixando o 
número desejado de casas decimais. Co- 
mo essa função requer dois parâmetros, 
deixamos de oferecer uma versão para 
o Apple, o TK-2000 e o TRS-Color: 


10 FOR 9=0 TO 1 STEP 0 

20 PRINT *'"*"Tntroduza o nume 
ro a arredondar e quantas cas 
as decimais voce deseja” "'* 
(Pressione C<ENTER> a cada vez 
| Ea 

30 INPUT numero,casas 

40 PRINT "'"'numero;" com ";ca 
sas," casas e' “,FN R(numero, 
casas) 

50 PAUSE 100: NEXT q 
60 DEF FN R(a,b)J=INT 
0.5)/10"b 


TI 


> DEF FNR(A,B) = 
+ 0.5)/10"B 


(a*10"b+ 


INT (A * 10"B 


sta = : - | | 
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10 FOR G=0 TO 1 STEP O 
20 PRINT:PRINT:PRINT 
25 PRINT "INTRODUZA O NUMERO A 
ARREDONDAR E QUANTAS CASAS 
DECIMAIS VOCE DESEJA” 
30 INPUT N,CD 
40 PRINT:PRINT:PRINT N;" COM "; 
CD;” CASAS = ";FNR(N,CD) 
50 NEXT G 

A função FNR utiliza uma segunda 
função em sua definição: é a função 
INT, que obtém a parte inteira de qual- 
quer número. O exemplo mostra tam- 
bém outro aspecto interessante nas fun- 
ções predefinidas: elas podem abrigar 
em seu interior outras funções do BA- 
SIC, bem como funções definidas pelo 
usuário. A única limitação, evidente- 
mente, é que não se pode chamar a pró- 
pria função que está sendo definida. 


0 é  RERNSASERNS 


Embora o TRS-Color, o Apple II e 
o TK-2000 aceitem apenas funções de- 
finidas com um parâmetro, não é difi- 
cil fazer bom uso desse recurso mais li- 
mitado. Digite e execute o programa a 
seguir, que define e aplica uma equação 
para traçar uma elipse. (Ao ser execu- 
tado, o programa solicitará alguns va- 
lores iniciais, como as constantes A e B, 
e os dois raios da elipse.) 


10 DEF FNY(X)=5QR (B*R*A-B*X*X/A 
) 

20 PMODE 3,1 

30 PCLS 

40 CLS: INPUT" INTRODUZA AS CONST 
ANTES A E B";A,B 

50 INPUT "INTRODUZA OS DOIS RAI 
OS ";R1,A2Z 

60 R=R1l:Y1=FNY(0):R=R2:Y2=FNY(O 
) 

70 IF Y2>Y1 THEN Yl=Y2 

BO IF Y1>95 THEN R1l=R1*95/Y1:R2 
=n2*95/Y1 

90 SCREEN 1,0 

100 FOR K=-127 TO 128 

110 IF B*RI*RI<B*K*K/A THEN 130 


120 R=R1:PSET(K+127,95+ENT(K),2 
) : PSET(K+127,96-FNY(K),2) 

130 IF B*R2*R2<B*KX*K/A THEN 150 
140 R=R2: PSET(K+127,95+ENYT(K),3 
) :PSET(K+127,96-FNT(K),3) 

150 NEXT 
160 GOTO 


Lélio] 


10 DEF FNY(X)=5QR (B*R*A-B*K*X/ 
A) 

20 HGR 

40 HOME: INPUT "INTRODUZA AS CO 
NSTANTES A E B:";A,B 

50 INPUT “INTRODUZA OS DOIS RA 
I0S:";R1,R2 

60 LET R=B1 
: Y2=FNY(O) 

70 IF Y2>Y1 THEN Yl=Y2 

BO IF Y1>95 THEN R1=R1*95/Y1 
R2=R2*95/Y2 

100 FOR K=-127 TO 128 


160 


YI=ENYT(O) R=R2 


110 IF (B*RI*R1)<(B*K*K/A) THEN 
130 

115 HCOLOR 3 

120 R=R1l : HPLOT K+127,95 + FNY 
(K) HPLOT K+127,96 - ENY 
(K) 

130 IF (B*R2*A2)<(B*K*K/A) THEN 
150 

135 HCOLOR 5 

140 R=A2 : HPLOT K+127,95 + ENY 
(K) : HPLOT K+127,96 - ENY 
(K) 

150 NEXT 


O programa usa comandos gráficos 
para desenhar a elipse. A função defi- 
nida na linha 10 é usada para calcular 
as coordenadas de cada ponto da elip- 
se. Ela usa internamente uma função 
matemática predefinida do BASIC: a 
função de raiz quadrada (SQR). 


Tu 


Caso você queira converter esse pro- 
grama para outros micros, eis aqui a 
equação das coordenadas da elipse: 


A E A 
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tical de cada ponto da elipse, R é o seu 
raio (na realidade o programa usa dois 
valores de raio, R1 e R2, para cada elip- 
se), e A e B são constantes que definem 
o formato da figura. 
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Alguns microcomputadores, como 
por exemplo o Spectrum, o MSX e o 
TRS-80, permitem ainda a utilização de 
variáveis alfanuméricas em funções de- 
finidas pelo usuário. 

Se, mesmo depois de tudo o que foi 
dito, você ainda tem dúvidas a respeito 
da utilidade de uma função que mani- 
pula cadeias alfanuméricas, digite e exe- 
cute. o seguinte programa: 


1 


lO PRINT “Introduza seu nome” 
20 INPUT n$5 


30 TF CODE n5>90 THEN LET n$S 
=FN us (n3) 
dO PRINT **"Ola,";n5S;" - eu n 


ao sou esperto ?” 
90 DEF FN uS(x5)=CHRS (CODE x 
5-32)+x5(2 TO ) 


5 DEF FNUS(XS) = CHARS (ASC(XS) 

- 32) +MIDS (X5,2) 

10 INPUT "INTRODUZA SEU 

RO NOME” ,NS 

30 IF ASC(N$)>90 THEN N$ = FNUS 

(NS) 

40 PRINT:PRINT "OLA, 

NAO SOU ESPERTO 2?" 
Observe que esse programa permite 

inicialmente que você entre um nome; 

em seguida, ele chama uma função de- 

finida pelo usuário; essa função impri- 

mirá sucessivamente a primeira letra em 


PRIMEI 


“NS; EU 


maiúscula e as restantes em caracteres 
minúsculos. 

Funções alfanuméricas como essa 
trabalham da mesma maneira que fun- 
ções puramente matemáticas. Seus no- 
mes, porém, são diferentes. | 

Diversamente das funções matemáti- 
cas, esses nomes devem conter sempre 
uma letra seguida de um cifrão, exata- 
mente como acontece com os nomes de 
variáveis alfanuméricas. 

Como se pode perceber pelo exem- 
plo, a função pode ter parâmetros alfa- 
numéricos, que são usados da mesma 
forma que parâmetros numéricos. 

Um outro programa exemplifica me- 
lhor este ponto. Trata-se de uma rotina 
que emprega uma função alfanumérica 
para abrilhantar as cadeias entradas por 
meio de comandos INPUT: 


E 


10 FOR £f=0 TO 1 STEP O 

20 INPUT "Introduza o titulo 
“18 

30 CLS 

35 PRINT FN LSt” 

40 PAUSE 150 

50 NEXT £ 

60 DEF FN tS(x5)=CHRS 18+CHRS 
J+CHRS 16+CHBS 24" RARAEAARAAS 

CEARA LOHAOS 

23+CHAS (J6-LEN x5/2) +x5+CHRS 
23+CHAS 3L+" MAIORCA RA RA 

e 


PH Ê 
E “N À 
' le 4 
 M 
| mm" 
E ” E om 


5 DEF FNTS(XS) = STRINGS (16-LEN 
(XS) /2)+XS+STRINGS (16-LEN (XS$) 
(2) 

10 FOR F=0 TO 1 STEP O 

20 INPUT "INTRODUZA O TITULO "; 
I$ ' 

30 CLS 

40 FOR I=-1 TO 1000:NEXT 1 


"+15) 





50 NEXT F 


Esse programa apresenta algumas 
particularidades que devem ser especial- 
mente consideradas. | 

Note, por exemplo, o valor um pou- 
co estranho do comando STEP na linha 
10. Na verdade, o que ele faz é causar 
um laço de repetição infinita, informan- 
do diretamente ao computador que o in- 
cremento do comando FOR é 0; isso 
quer dizer que ele nunca Irá alcançar o 
valor final 1. 

Embora neste caso seja mais fácil re- 
correr a um comando GOTO, é conve- 
niente que você saiba que programas 
melhor estruturados evitam o GOTO 
para trás, O que seria considerado má 
prática de programação. 


FUNÇÕES RENDOSAS 


Eis aqui outro exemplo do comando 
DEF FN em ação. Trata-se de um pro- 
grama relativamente simples, que pode 
ser empregado em tarefas como calcular 
os juros de sua caderneta de poupança. 

Ele define uma função que calcula ri- 
gorosamente o valor a ser atingido por 
um investimento após um dado perio- 
do de tempo, e levando em considera- 
ção Os juros pagos por ano. 


10 DEF EN c(lt)=INT (AM*((R/ 
100+1)77)*100)/100 

20 INPUT "Quantos cruzados? 
- AM 

30 INPUT "Taxa de juros (2)? 
"3h 

40 INPUT "No. de unidades de 
tempo? “":;7T 

50 PRINT AT 9,0;"Quantia fota 











MARE E E E RS A PS MA noite AIG 6 DS RARE) 


| apos a operaçcaos ";TAB 12; 
EN C(T) 
60 PRINT INVERSE I;AT 20,1;" 


Qualquer fecla para recomecar 


70 PAUSE Q: CL& GoTo 20 


TITS te 


10 DEF FN C(T)=INT(AM*((1+R/100 
)7T)*100)/100 
20 INPUT"QUANTOS CRUZADOS ";AM 
30 INPUT"TAXA DE JUROS (2) ";BR 
40 INPUT"TQUANTAS UNIDADES DE TE 
MPO "i;T 
50 PRINTºQUANTIA TOTAL APOS APL 
ICACAO =", FNC(T) 
60 PRINT:PRINT"QUALQUER TECLA P 
ARA RECOMECAR” 
70 AS=INKEYS: IF AS="" THEN 70 
80 GOTO 20 


Para o programa funcionar no 
Apple e no TK-2000, substitua a 
linha 70 por: 


70 GET AS 


O programa funciona de forma 
muito simples. Definida a função, 
os valores de entrada são coloca- 
dos por meio de uma série de co- 
mandos INPUT, de modo que o 
usuário possa fornecer ao compu- 
tador os detalhes da poupança. 

As variáveis que O programa usa são; 
T, para o período de tempo em questão; 
AM, para a quantia inicial em dinheiro 
a ser aplicada; e R, para a taxa de ju- 
ros, em % ao ano. | 

O único parâmetro da função FNC 
é T. Isso pode ser percebido facilmente 
a partir da própria definição da função, 
na linha 10. Entretanto, a expressão ma- 
temática na mesma linha contém três va- 
riáveis, que são AM, Re T — e apenas 
uma delas é o parâmetro. Esta é uma ca- 
racteristica muito útil das funções defi- 
nidas pelo usuário. Ela permite que se 
misturem parâmetros e variáveis na mes- 
ma expressão, evitando que seja neces- 
sário definir todos os elementos como 
parâmetros. 

Esta é uma maneira de se contornar 
a limitação de um parâmetro por fun- 
ção nos microcomutadores das linhas 
TRS-Color, Apple e TK-2000. 

Já no MSX é possível até mesmo de- 
finir uma função inteiramente sem pa- 
râmetros (neste caso, não coloque pa- 
rênteses, nem em DEF FN, nem na cha- 
mada à função). 

Os usuários do Spectrum podem es- 
tranhar o fato de que a expressão na li- 
nha 10 usa variáveis ainda não defini- 
das, o que deveria provocar uma men- 
sagem de erro. Entretanto, como foi di- 
to linhas atrás, no Spectrum o processo 
funciona de modo diferente; neste ca- 


< 














so, à linha 10 é procurada depois que as 
variáveis foram definidas pelos coman- 
dos INPUT do programa. 

Os juros calculados aqui são juros 
compostos — isso quer dizer que o va- 
lor ganho em um período é usado para 
calcular os juros do período seguinte 
(juros sobre juros). 


OPERAÇÕES ARITMÉTICAS 





Isso é levado em consideração auto- 
maticamente pela fórmula da função, 
simplificando o cálculo dos números 
procurados. Veja a seguir como se pro- 
cessa esse cálculo na prática. 

Se, por exemplo, a taxa de juros for 
10% após um período de tempo, o pro- 
grama calculará o valor original mais 
0.1 multiplicado por esse valor. Você 
pode ver isto na expressão contida na 
função, como R/100+1. Assim, no 
exemplo dos 10%, o resultado após um 
periodo de aplicação é de 1.1 vezes o va- 


Ei» 


lor original aplicado. Após dois perio- 
dos, será 1.1 vezes o novo valor, e as- 
sim por diante. Em T períodos, isso da- 
rá 1.1 elevado a T. Esta é a segunda par- 
te da função, que toma a forma com- 
pleta vista no programa, ou seja, 
(R/100+ DT. A parte restante da ex- 
pressão multiplica isto pelo valor do 
principal (AM) e arredonda o resultado 
final para duas casas decimais, multipli- 
cando por 100, tomando o seu INTei- 
ro, e dividindo por 100. 

Tudo se resume, portanto, a simples 
operações aritméticas. 

Você poderá também definir fun- 
ções trigonométricas que não existem na 
maioria dos interpretadores BASIC, co- 
mo arco seno e arco co-seno. 


ASN(X) =ATN(X/SQR(-K*X+1)) 
ACS(X)=-ATN(X/SQR(-X* 
*X+1))+1.5708 


Agora, procure treinar, ““inventan- 
do” algumas funções novas para outras 
áreas da matemática. 
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As duas primeiras partes desta lição 


apresentaram as funções básicas de edi- 


ção na tela, que permitem criar textos 
e armazená-los. A terceira e última parte 
fornece as rotinas de ordenação, procu- 
ra de palavras, impressão e uso de 
“'máscara de texto”. 


ORDENAÇÃO 





Baseada na rotina de troca retarda- 
da, a rotina de ordenação é usada para 
colocar linhas em ordem alfabética. Ela 
é de grande utilidade para ordenar no- 
mes ou outros dados. 


PROCURA DE PALAVRAS 





Essa rotina “varre” o texto em bus- 
ca de uma determinada palavra ou frag- 
mento de palavra. Ela deve ser ativada 
dentro do modo editor. A procura co- 
meça no ponto onde o marcador está lo- 
calizado. Por isso, certifique-se de que 
ele está na posição mais adequada para 
dar início à busca. 

Há dois motivos básicos para que 
não se ache a palavra procurada: ou ela 
foi digitada de modo errado ou está di- 
vidida em duas linhas, 

Quando a palavra for encontrada, o 
programa continuará no modo editor e 
a linha poderá ser copiada imediatamen- 
te na área de trabalho, 


“IMPRESSÃO 





A rotina de impressão possibilita o 
envio do texto gerado para a impresso- 
ra. Ela apresenta algumas caracteristi- 
cas especiais, incluindo uma rotina pa- 
ra controlar o formato das cartas e ou- 
tra para uso do texto com ''máscara”, 
permitindo que você adicione partes va- 
riáveis ao texto. 

Se a sua impressora trabalha com co- 
mandos não padronizados, pode ser ne- 
cessário algum ajuste no programa. 
Preste particular atenção aos caracteres 
que provocam avanço de linha (/ine- 
feed, ou LF) e retorno do carro (carria- 
ge return, ou CR). O programa usa o ca- 
ractere ASCII 13 para ambas as funções. 








FORMATAÇÃO 


Pouco adiantaria poder escrever e 
corrigir um texto se não fosse possivel 
imprimi-lo na forma desejada. Pode ser 
necessário, por exemplo, colocar o ca- 
beçalho da página no centro de uma li- 
nha, seguida por outras linhas em bran- 
co. Isso se torna fácil quando se usam 
os comandos de formatação. Outro 
exemplo comum é quando se quer co- 
locar a data ou o endereço do remeten- 
te na margem direita e o endereço do 
destinatário à esquerda. 

Os símbolos empregados na rotina 
de formatação são os mesmos do pro- 
grama do artigo Escreva Cartas sem 
Esforço (página 17). Lembre-se de que 
eles devem aparecer sempre no início 
da linha. Esses símbolos são os seguin- 
tes: o sustenido ('* &""), que coloca a li- 
nha de texto na margem direita da pá- 
gina (se existir só uma linha com essa 
marca, ela será colocada com o último 
caractere na última posição da linha; se 
houver mais linhas, o programa procu- 
rará a mais longa e alinhará as outras 
com base nesta); o ampersand (''&'), 
que faz o texto que o segue ser impres- 
so no início da linha seguinte (por exem- 
plo, ele pode ser usado em cartas, para 
posicionar cada linha do endereço do 
destinatário); o cifrão (''$''), que, além 
de passar o texto para outra linha, pro- 
voca um recuo na primeira palavra da 
nova linha; o asterisco (*'*"”), que co- 
loca o texto no centro da linha. Ao usar 
essa rotina, tenha cuidado com linhas 
de texto muito longas. Estas devem ter, 
no máximo, a mesma largura da linha 
de impressão, 





COMO USAR "MÁSCARA DE TEXTO 


Além dos comandos de formatação, 
o programa dispõe de outro recurso 
(inexistente no do Spectrum) com o qual 
se pode criar uma carta padrão e deixar 
que algumas partes específicas sejam va- 
riáveis. Esse recurso é o ''siímbolo de 
máscara”. Ele opera do seguinte modo: 
quando você quiser inserir uma frase no 
texto, coloque um par de colchetes 
(*]['") na posição escolhida. No momen- 


A procura da palavra certa foi sempre 
um elemento estimulante para 

os grandes escritores. Esta lição 
ensina como fazer isso com a 
prosaica ajuda de um computador. 
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- ORDENAÇÃO 
A ARTE DE PROCURAR 
PALAVRAS 

—  MPRESSÃO 
CARTA PADRÃO 





E | 


to da impressão, esse sinal será substi- 
tuido pelo bloco de texto apropriado, 
Dessa maneira, você pode começar a 
carta com um “Caro ]|["' e só digitar o 
nome do destinatário quando lhe convier. 

O “simbolo de mascara ' pode ser 
colocado em qualquer posição no tex- 
to, menos depois de um sustenido (%). 
É que o programa mede primeiro o ta- 
manho de cada linha que vai ser posi- 
cionada à direita, determinando a seguir 
onde deve começar a impressão dessas 
linhas. Como essa operação é feita an- 
tes de se carregar os blocos variáveis, 
sempre surge algum problema. 

O texto que substitui os colchetes € 
digitado diretamente do teclado na ho- 
ra da impressão, ou lido de um arquivo 
criado pelo próprio programa. 

O máximo de caracteres admitido por 
linha no TRS-Color é 32. No MSX, es- 
se número sobe para 39 e, no Apple, pa- 
ra 40, O texto será quebrado, assim, em 
unidades de 32 a 40 caracteres, depen- 
dendo da máquina. Cada par de colche- 
tes permite a entrada de, no máximo, 
250 caracteres. 

Se os blocos variáveis de texto forem 
carregados de um arquivo, o computa- 
dor se encarregará de colocar os dados 
nos seus devidos lugares. Cuide apenas 
para que os dados estejam na ordem 
correta e para que haja informação pa- 
ra todos os pares de colchetes. 


4000 REM imprimir 

4010 LET tt=(pl-11)/2 

4020 LET d=0 

4025 FOR n=t+3 TO b-3 

4030 LET ag=tS(n) 

d032 IF LEN a$=0 THEN NEKT n: 

RETIJRN 

d0I34 TF asS(LEN aS-L)<2>CHBRS 32 T 

HEN GOTO 4037 

4035 IF as(LEN aS)=CHAS 32 THEN 
LET a$=aS( TO LEN asS-1): GOTO 
As 

4037 LET 1I=LEN as 

ad) LET c=0 

40650 TE c=1 THEN NEXT n: LPRIN 

T CHRS 13: RETURN 

4060 LET c=c+l]: LET d=d+1]: IF c 
| THEN GOTO 4100 

4070 IF aS(c)="4" THEN GOTO 45 

00) 


O FORMATAÇÃO 
CENTRAR O TEXTO 
AJUSTAR À DIREITA 

— AJUSTAR À ESQUERDA 
ESPAÇAMENTO 


| 
EEE 
| 
| 





4080 IF aS(c)="*" THEN GOTO 47 
10 
4085 IF asg(e)="a" THEN GOTO 48 
“ () 


4090 IF as(c)="5" THEN LPRINT 

CHAS 13;CHAS 13;: LET d=0: GOTO 
4900 

4100 LET n=n+l: TF n>=b-l THEN 
LET I=LEN as: GOTO 411] 

4l0OsS TE tS(n,1)="5" OR ES(n,l)= 

“AC OR t&tn,1)=]*] OR ES(n,1)=" 

&” THEN GOTO 411 

Al06 LET aS=asS+t58S 

4107 TF aS(LEN as-1)<S2CHAS 32 T 

HEN O GOTO 4100 

4108 TF aS(LEN aS)=CHBRS 32 THEN 
LET ag=asS(t TO LEN asS-1) 

ay GOTO 4107 


4]J10 LET n=n=): LET )=LEN as 

4111 IF aS(c)=CHEKES 3Z THEN GOT 
ABM00 

daliz LPRINT agilc); 

al]»h TF d2)i THEN LET d=0 


4120 GOTO 4050 

4500 LET nl=0: LET ta=ll: LET Db 
p= 

45h10 LET le=LEN aS-l: IF ljezll 
THEN PRINT FLASH 1;"ERRO NO F 
OABMATO -—- ENDERECO MULTOLONGO” : 
SOUND 2,10: HETURN 

4520 IF le>be THEN LET bes=le 
45830 LET nl=nl+1]: LET n=n+l: LE 

T aS=ts (n) 

4532 IF LEN asS=0 THEN NEXT n: 

RETURN 

4535 IF aS(LEN ag)=CHAS 32 THEN 

LET a$=aS( TO LEN aS-1): GOTO 

4532 

4538 IF aS(1)="4" THEN GOTO 45 
1.0) 

45840 LET n=3 

45850 LET tLr=tt+ll-be: FOR 9g=1 T 

O nl: FOR h=1 TO Lr: LPRINT CHR 
5 3424:: NEXT h: LET n=n+l: LET a 
S=t5(n) 

4552 IF LEN as=0 THEN NEXT n: 

RETURN 

4555 IF aS(LEN aS)=CHAS 32 THEN 

LET agS=asS( TO LEN aS-1): GOTO 

4552 

45358 LPRINT asi? TO )J: NEXT q 

4560 NEXT n: RETURN 

4700 LET ta=(11-1)/2+tt: IF tas 
tt THEN  LPRINT CHARS 13: PRINT 
FLASH 1;"ERRO NO FORMATO - IMP 
OSSIVEL CENTRALIZAR": SOUND 
2,10: RETURN 
4710 LPRINT CHAS 

O Ta: LPRINT CHH 
LPRINT asS(2 TO ) 

T n: RETURN 

4800 LET gl=ll-d-l: LET céz=c+l: 


13:: FOR m=1 T 
S 32;: NEXT mn: 
.: LET d=0: NEX 
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e eg e 


8660 NEXT 3: IF u<>k THEN LET 

wS=tS(k): LET tS(k)=tsS(i): LET 
tS(1)=ws 

8670 NEXT à 

B900 FOR n=ss TO b: LET tS(n)=L 

S(n+1): NEXT n 

8910 FOR n=se-l TO b: LET tStn) 
=t$(n+1): NEXT n: LET b=b-2: IF 
p>b-2 THEN LET p=p-: 

8915 PRINT 41L;AT 0,0;955;98 

8930 GOSUB 1000 

8940 RETURN 

Para usar a rotina de ordenação, 
marque os pontos correspondentes ao 
início e ao fim da operação, colocan- 
do uma flecha (1) acima da primeira 
linha a ser ordenada e outra abaixo da 
última. Para iniciar o processo, tecle 
[CAPS SHIFT] e 4. As flechas serão eli- 
minadas durante a ordenação. 

Para fazer a operação de busca, te- 
cle [CAPS SHIFT) e 2; a palavra a ser 
procurada deve ser digitada conforme 
requisitado. A busca começará imedia- 
tamente. Assim que o computador en- 
contrar a primeira ocorrência, o cur- 
sor aparecerá sob ela. Se quiser con- 
tinuar a procura mais adiante, pressio- 
ne [CAPS SHIFT] e 3. Para alterar a pa- 
lavra, tecle [CAPS SHIFT] e 2. 

Tecle 6 para entrar na rotina de im- 
pressão da linha 4000. Isso fará o texto 
ser impresso de acordo com o que foi 
definido na rotina da linha 100, ou se- 
ja, 32 caracteres por linha e 32 linhas 
por página. Se quiser alterar esses valo- 
res, tecle 7 e não 6. 

Na formatação do texto, coloque o 
sinal adequado, para que a linha seja 
impressa do modo desejado. O sinal 
“4” indica que a linha deve ser posi- 





LET x=] URN cionada junto à margem direita do tex- 
4810 IF cc>=1 THEN GoTO 4825 8500 REM ordenacao to. (O) HER" provoca uma mudança de l- 
4820 IF as(cc)<>CHAS 32 THEN L 8505 PRINT 41;AT 0,0;98;85 nha e inicia a impressão na margem es- 
ET cc=cc+l: LET x=x+1l: GOTO 481 8510 LET ss=4 PRE rd Mara 

| j | querda. $'” faz com ql a um 
0 8520 TF tS(ss,1)=""" THEN Goro À erda. O faz com que haja 


avanço de duas linhas e não de uma ape- 


4825 TE x>D=11 THEN LPRINT CHARS B550 ao 
nas. O * centraliza o texto. 


13: PRINT FLASH 1;"ERRO NO FO 8530 LET ss=sstl: IF ss=b THEN 


BMATO - PALAVRA MUTTO GRANDE": PRINT 41L:AT 0,0; BRIGHT 1; Lim 
SOUND 2,10: RETURN itea não definidos": PAUSE 100: 
4830 IF sl>=x THEN GOTO 4112 PEINT 41:AT 0,0;953;95: RETURN 
4850 LPRINT CHAS 13;: LET d=0 gs40 GOTO B52Z0 3000 CLS: PRINTE7,BLS;" IMPRESSÃO 
4900 FOR m=1 TO tt: LPRINT CHES 8550 LET se=sa+] "-BLS 
342:: NEXT m: GOTO 4050 8560 TF ts(se,1)=""" THEN GOTO 3010 1F TL<2 THEN 3050 
8000 REM procura BANDO 3020 PRINT"DA (M) EMORIA OU DE ( 


B002 TF z$="" THEN PHINT 4L;AT 8570 LET se=se+1l: IF se=b THEN A)JRQUIVO 7” 
0,0: BRIGHT 1;"Nao foi definid PRINT 41:;AT 0,0; BRIGHT 1;"Som 3090 R$=INKEYS:IF R5<>"M” AND R 
a a palavra alvo": PAUSE 100: P enfe um limite foi definido": P S<>"A” THEN 3030 


RINT 41;AT 0,0;5$;5$: RETURN AUSE 100: PRINT 41:;AT 0,0;9S;9S 3040 IF R$="M” THEN 3060 

8005 PRINT 41;AT 0,0;558;95S: IF - RETURN 3050 GOSUB 4500 

p=b-2 THEN LET p=4 8580 GOTO 8560 3060 IF TL=1 THEN PRINT (nao ha 

8010 FOR n=1 TO 33-LEN 253 8600 IF gs=se-l OR ss=se-2 THEN arquivo”: PY$="T2003EDCA”:GOTO 

8020 IF tsS(p,n TO n+LEN 2zS-1)=z GOTO 8900 3570 

Ss THEN LET n=33-LEN 28: NEXT n 8610 PRINT 41l;AT 0,0; BRIGHT 1; 3070 KF=0:PRINT "QUER USAR MASC 
GOTO 8050 "Ordenando” ARA (S/N) ?- 

A030 NEXT n 8620 FOR i=ss+tl TO se-l 3080 R$=INKEYS:IF R$<>"5” AND R 

8040 LET p=p+l: TF p=b-2 THEN 8630 LET ks=) S<>"N”" THEN 3080 

LET p=p-l: GOTO 8050 640 FOR j=i+1 TO se-] 3090 IF R$="N” THEN 3150 

8045 goTo 8010 8650 IF tS(j)<ts(k) THEN LET k 3100 PRINT:PRINT"CARREGA BLOCOS 


8050 LET p=p+l: GOSUB 1000: RET =3 VARIAVEIS (T)ECLADO OU 








(A) RQUIVO?” 


3110 AS=INKETS:IF RS<>"Tº AND BR 
S<>"A” THEN 3110 

3120 KF=Z: IF AS="T' THEN KF=1:G 
OTO 3150 


3130 PRINT:LINEINPUT “INTRODUZA 


O NOME DO ARQUIVO ":VBS 

3140 IF LEFTS(VBS,1)<"A” OR LEF 
TS (VBS,1)>"Z" THEN 3130 

3150 CLS: PRINT "DESEJA REPROGRA 
MAR A IMPRESSORA (S/N) 7?" 

3160 R5$=INKEYS:IF AS<>"S" AND R 


S<>"N” THEN 3160 

3170 IF R$="5" GOSUB 5500 

3180 CLS 

3190 VB=0:PP=0:AZ=0:LC=1:PRINT 


"DESEJA IMPRIMIR NA TELA (S/N)? 
"“7+ PRINT" enter RETORNA AO MENU P 
RINCIPAL” 

3200 RS=INKEYS:IF R$<>"S5" AND R 


S<>2"Nº 

Do 

3210 IF R$=CHRS(13) THEN RETURN 

3220 IF KF=0 THEN 3240 

3230 IF DL=1 AND KF=2 THEN FREA 

D VBS,FROM 0;DV: FREAD VBS;DV E 

LSE IF K=2 THEN OPEN "I",t-1,VEB 

S:INPUT&-1,DV,DV 

3240 P=0:GPS="":IF R$="N” 

P=-2:GPS=STRINGS (GP,32) 
3250 FOR K=1 TO TL-1l:IF LEFTS(T 

XS(K),1)="4" AND LEN(TKS(K))-1> 

AZ TREN AZ=LEN(TKS(K)) 

3260 NEXT:IF AZ>TW THEN PRINT"e 

rro-endereco muito longo":PY$=" 

T402AB”:GOTO 3570 

3270 K=1:PRINT+AP,LFS;GPS;:AS="" 
“IF AZ>0 THEN AZS=STRINGS (GP+TW 

-=AZ,32) 

3280 TT5S=TXS(K) 

3290 IF TT$="" THEN PRINT 4P,CH 

RS(13);GPS;:PP=D:LC=LC+1:GOSUB 
3590:GOTO 3520 

3300 BP=INSTA(TTS,"1]["):IF BP=0 
OR KF=0 THEN 3390 

3310 IF KF=1 THEN 3370 

3320 IF DL=1 THEN 3360 

3330 IF EOF(-1) THEN 3350 

3340 INPUT+-1,RPS:GOTO 3380 
3350 PRINT"erro-falta de dados 
no arquivo”: PY$="L2005DL402D"”:G 
OTO 3570 

3360 IF EOF (VBS) THEN 3350 ELSE 
FLREAD VBS;RPS:GOTO 3380 

3370 BL=BL+1:PRINT:PRINT "INTRO 
DUZA BLOCO VARIAVEL";BL;"?P";:LI 
NEINPUT RPS$ 

33B0 TTS=LEFTS(TTS,BP-1)+RPS+MI 
DS(TTS,BP+2) :GOTO 3300 

31390 ON INSTR ("A5S*4", LEFTS(TTS 
rL)) GOTO 3460,3470,3490,3510 
3400 IF PP+LEN(TTS)<=TW THEN PR 
INTAP, TTS;:PP=PP+LEN(TTS):GOTO 
3520 

3410 TAS=LEFTS(TTS, TW-PP) 

3420 IF INSTARÍ(TTS," ")>TW THEN 
PRINT "erro-palavra muito grand 
e na”, TTS:PY$="T1I00O2ZCB":GOTO 35 
70 

3430 IF RIGHTS(TAS,1)=" 
3450 

3440 IF LEN(TAS)>0 THEN TAS=LEF 
TS(TAS, LEN(TAS)-1) :GOTO 3430 


AND AS<>CHAS (13) THEN 32 


THEN 


” THEN 


3450 PRINTAP, TAS; CHRS(13);GPS:;: 
PP=0:LC=LC+1:GOSUB 3590:TTS=MID 
S(TTS,LEN(TAS)+1):IF TTS<>"" TH 
EN BP=1:GOTO 3400 ELSE 3520 
3460 PRINT+AP,CHRS(13);GPS;:PP=0 
'LC=LC+1:GOSUB 3590: TTS=MIDS (TT 
S$,.2):GOTO 3300 
3470 TTS=MIDS(TTS,2) :PRINTAP,CH 
RS (13) :;GPS; STRINGS (INT(TW/4), 32 
|; :PP=INT(TWU/4) 
3480 LC=LC+1:GOSUB 3590:GOTO 33 
DO 
3490 TTS=MIDS(TTS,2):IF LENCTTS 
)J>TW THEN PRINT"erro-impossivel 
centralizar"; TTS:PY$="T1O3C”:G 
OTO 3520 
3500 PRINT+AP,CHAS(13);GPS;STRIN 
GS (INT((TW-LEN(TTS))/2),32);TTS 
:CHARS (13);GPS;:PP=0:LC=LC+1:GOS 
UB 3590:GOTO 3520 
3510 PRINTkAP,CHAS (13) ;AZS;MIDS( 
TTS,2)::PP=D:LC=LC+1:GOSUB 3590 
3520 K=K+1:IF P=0 THEN FOR Z=1 
TO 500:NEXT 
3530 IF K<TL THEN 3280 
3540 IF P=-2 THEN PRINT 
LFS ELSE PRINT:PRINT 
3550 IF K=1 THEN CLOSE t-1l ELSE 
IF KF=2 THEN CLOSE 


$P,LFS; 


3560 IF P=0 THEN 3190 ELSE RETU 
RN 

35720 FOR Z=1 TO 10:PLAY PYS:NEX 
T:IF KF=1 THEN CLOSES-1 ELS IF 
KF=2 THEN CLOSE 

3580 RETURN 

3590 IF LC>TH THEN PRINT 4P,LFS 


;ILFS;GPS;:LC=1 

3600 RETURN 

5070 L=CP:PRINT 6384," INTRODUZA 
PALAVRA PROCURADA” 

5080 LINEINPUT TGS:IF TG$="" TH 

EN 5070 

5090 PRINT €6500,"procurando” ;BL 

$: 

5100 TF L=TL THEN CP=TL:CLS:GOS 

UB 2090:RETURN 

5110 IF INSTR(TXS(L),TG8)=0 THE 

N L=L+1:GOTO 5100 

5120 CP=L+1:CLS:GOSUB 2090:RETU 

RN 

5130 IF SS>SE THEN TT=SS: SS=SE 
: SEs=TT 

5140 

5150 

5160 

5170 

5180 


SE=5SE-1 
PRINT6500,"ordenando”;BLS; 
FOR I=SS TO SE-1 

K=1I 

FOR J=I+1 TO SE 

5190 IF TXS(J)<TXS(K) THEN Ke=yg 
5200 NEXT:IF I<>K THEN TTS=TXS( 
K) :TXS(K)=TXS(1I): TXS(I)=TTS 
5210 NEXT:CLS:GOSUB 2090:RETURN 


Para fazer funcionar a rotina de or- 
denação, entre no modo editor e leve o 
marcador ''>" para um dos extremos 
do bloco a ser ordenado. Então, tecle 
“O. Em seguida, mova o marcador, 
levando-o para o outro extremo, e tecle 
“(OD novamente. Essa operação inicia 
automaticamente a ordenação. 

A função de procura de palavras é 
ativa, dentro do modo editor, quando 








se pressiona a tecla P. Você responde 
qual a palavra a ser procurada por in- 
termédio da mensagem mostrada na 
área de trabalho. Pressione a tecla [RE- 
TURN] para dar início à busca. Quan- 
do a palavra desejada for encontrada, 
o marcador será colocado logo abaixo 
da linha que a contém. 

Para imprimir um texto já editado, 
tecle | a partir do menu principal, Você 
terá então de responder a várias pergun- 
tas. À primeira delas indaga se o texto 
a ser impresso está na memória ou no 
arquivo. Caso você escolha imprimir o 
que está na memória e não haja nada 
ai, um sinal sonoro será ativado e uma 
mensagem mostrada na tela do compu- 
tador; o programa voltará então ao me- 
nu principal. 

Em seguida, será oferecida a opção 
de mudar os parâmetros da impressora. 
Responda com 8 ou N. Essa rotina tor- 
na possível a alteração dos valores pré- 
determinados, que são os seguintes: 80 
para a largura do formulário, 60 para 
a largura da linha de texto (deixando 
margens de dez colunas), 66 para o nú- 
mero de linhas total por formulário e 60 
para o número de linhas de texto (dei- 
xando três linhas de espaço no topo e 
no fim da página). 

Assumidos quando o programa é exe- 
cutado, os valores indicados acima se- 
rão mantidos até que você os altere. 

A última pergunta diz respeito a uma 
cópia do texto na tela. Se você respon- 
der S, o texto será imediatamente colo- 
cado na tela; um N se encarrega de en- 
viá-lo para a impressora. 

Os sinais empregados para formata- 
ção do texto são os mesmos que apare- 
cem no programa do já citado artigo da 
página 17. O sustenido ('* &'') faz com 
que a linha seja levada para a margem 
direita, enquanto o cifrão (''$'") provo- 
ca um avanço de uma linha e um recuo 
do texto subsequente. 

O ampersand ('“'&'') determina um 
avanço de linha, fazendo com que o tex- 
to a seguir seja impresso no início da li- 
nha abaixo (sem recuo). O asterisco 
(:*"") centraliza a linha de texto. 

Para inserir blocos de texto variáveis 
dentro do texto principal, utilize um par 
de colchetes (“']['") na posição desejada. 
Responda S quando perguntado se de- 
seja recorrer à ''máscara de texto”. Os 
blocos podem ser lidos a partir do tecla- 
do ou de um arquivo. Se sua opção for 
pelo teclado você deve digitar cada blo- 
co quando o programa pedir. No caso 
de escolher o arquivo, essa operação se- 
rá feita automaticamente — o compu- 
tador lerá o texto de um arquivo previa- 
mente preparado para isso (use o pró- 
prio programa). 


3000 CLS:BLS="Imprimir”:GOSUB 2 
ZU 

3010 IF TL<2 THEN 3050 

3020 PRINT:PRINT: PRINT" Imprime 

texto da [MjJemória ou [Flita?”; 
3030 RS$=INKEYS:IF RS<>"M” AND AR 
S<>"F” THEN 3030 

3040 IF R$="M” THEN 3060 

3050 GOSUB 4500:CLS:BLS="Imprim 
1r” :GOSUB 220 

3060 IF TL=1 THEN BEEP:LOCATE 8 
12: PRINT"Não há texto na memór 
1a!" :FOR I=1 TO 1000:NEXT:RETUR 
N 


3070 KF=0:PRINT:PRINT"Quer usar 
máscara? (S/N)”; 
3080 RS$=INKEYS: IF RS<>"5" AND R 


S<>"N” THEN 3080 

3090 TF BR$="N”º THEN 3150 

3100 PRINT:PRINT"Carrega os blo 
cos variáveis do [Tlecla 
do ou da [Flita?”; 


3110 RS=INKEYS: IF BS<>"T” AND R 
S<>"F” THEN 3110 

3120 KF=2:1F R5$="T” THEN KF=1:6 
OTO 3150 

3130 PRINT:LINEINPUT"Nome do ar 
quivo ";VBS 


3140 IF LEFTS(VBS,1)<CA” OR LEF 


TS(VB5S,1)>"Z”" THEN 3130 


3150 PRINT:PRINT"Altera a confia 
quração da 
(S/N)”":; 


Imp 
ressora? 
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3160 RS5=INKEY5S:IF R$%2>2"5º” AND BR 
S$<>"N” THEN 3160 

31720 TF R$="S8” THEN GOSUB 5500 

3180 CLS:BLS="Imprimir”":GOSUB 2 
20 

3190 VB=0:PP=0:AS=0:LC=1:PRINT: 
PRINT:PHINT"Quer uma demonstraç 
ão na tela? (5/N)":PRINT"Tecle 

<RETURN> para retornar ao menu” 


3200 R5S=INKEYS: IF RS<>"S" AND BR 
S<>"N” AND RS<>CHRS (13) THEN 32 
Do 

3210 IF KS=CHAS (13) THEN RETURN 
3220 IF KF<>2 THEN 3240 

31230 OPEN VBS FOR INPUT AS 41:1 
NPUT41,DV, DV- 

3240 P=0:GPS="":IF R$="N” 
P=-]1:GP5S5=STRINGS(GP,32) 
3250 FOR K=1 TO TL-1l:TF LEFTSIT 
XS(K),1)="4" AND LEN(TXS(K))-1L> 
AS THEN AS=LEN(TXS(K)) 

3260 NEXT:IF AS>TW THEN PRINT:P 
RINTTAR(10);"Endereço muito lon 
go!" :GOTO 3J610 

3270 K=1:A8="": IFAS>DO THEN AS=S 
TRINGS (GP+TW-AS,32) 


THEN 


3280 TF NOT P THEN PRINT:PRINT: 
PRINT;ELSE LPRINT LFS;GP3S; 

3290 TTS=TAS(K) 

3300 IF TTS<>"" THEN 3320 ELSE 

IF P THEN LPRINT L1S;GPS ELSE P 
RINT 

3310 PP=0:LC=LC+1:GOSUB 3630:G0 
TO 3560 


3320 BP=INSTR(TTS,"]["):IF BP=0 
OR KF=0 THEN 3390 

3330 IF KF=1 THEN 3370 

31340 IF EOF(1) THEN 3360 

3350 INPUT41,RPS:GOTO 3380 

3360 PRINT:PRINTTAB(3)"Fim de d 
ados para blocos variáveis! "GO 

TO 3610 

3370 BL=BL+1]:PRINT:PRINT"Bloco 

variável" :BL:;"2?2";:LINEINPUT BPS3 
3380 TTIS=LEFTS(TTS,BP-1)+RPS+MI 

DS (TTS,BP+2) :GOTO 3320 

3390 ON INSTR("AS*4", LEFTSCTTS, 
11) GOTO 3470,3490,3510,3540 
3400 IF PPALEN(TTS)<=TW THEN IF 
P THEN LPRINT TTS;CHRS(32);:PP 
=PP+LEN(TTS) :GOTO 3560 ELSE PRI 

NTTTS;CHRS(32);:PP=PP+LENCTIS): 

GoTO 3560 

3410 TAS=LEFTS(TTS, TW-PP) 

7420 IF INSTR(TTS,” ")2TW THEN 
PRINT:PRINT"Palavra muito longa 
em:”":PARINTTTS:COTO 3610 

3430 IF RIGHTS(TAS, 1) =CHRS (32) 
THEN 3450 

3440 IF LEN(TAS)>0 THEN TAS=LEF 

TS (TAS, LEN(TAS)-1) :GOTO 3430 
3450 IF P THEN LPRINT TAS;LIS;G 
PS; ELSE PRINTTAS 

3460 PP=0:LC=LC+1:GOSUB 3630:TT 
$=MIDS (TT5S, LEN(TAS)+1) : IF TTSS2 
"e THEN BP=1:GOTO 3400 ELSE 356 
Q 

3470 IF P THEN 
ELSE PRINT 


LPRINT L1S;GP$S; 


e 3 


= E 





dd oca d 


Mdndiaa cd Ei 





34480 PP=0:LC=LC=1:GOSUB 3630:TT 
S=MIDS(TTS,2) :GOTO 3320 

3490 TTS=MIDS(TTS,2):IF P THEN 

LPRINT L1IS;GPS; STRINGS (TW/4,32) 
': ELSE PRINT:LOCATE TW/4 

3500 PP=INT(TW/4):LC=LC+]:GOSUB 
3630:GOTO 3320 

4510 TT5S=MIDS(TT5S,2): IF LEN(TTS 
)>TW THEN PRINT: PRINTOLinha mui 

to grande para centralizar:":PR 
INTTTS:GOTO 3610 

3520 S5=STRINGS (INT((TW-LEN(TTS 
1)/2),32): IF P THEN LPBINT LIS; 

GPS:SSTTS;L]IS;GPS; ELSE PRINT: 

PRINTSS;TTS 

3530 PP=0:LC=LC+L:GOSUB 3630:60 

TO 3560 

3540 TF P THEN LPBINT AS;MIDSIT 

TS,2); ELSE PRINTAS:;MIDS(TTS,2) 


3550 PP=0:LC=LC+1:GOSUB 3630 
1560 K=K+1L: IF P=0 THEN FOR Z=] 
TO 500:NEXT 

3570 TF KSTL THEN 3290 

3580 IF P THEN LPRINT LFS;LFS E 
LSE PRINT:PRINT 

3590 TF KF=2 THEN CLOSE(] 

3600 IF NOT P THEN 3190 ELSE RE 
TURN 
3610 


PLAY "O3LICR6ILICROILECROA 


LIC" :FOR I=1 TO 2500:NEXT:TF KF 
=2 THEN CLOSE41 

3620 RETURN 

3630 IF LC>TH THEN IF P THEN LP 
RINT LES;LFS;GPS ELSE PRINTLES; 
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LFS; 
3640 LC=1;RETUABN 


5000 L=CP:LOCATE 0,1]19:LTNEINPUT 
“Procura Por: "5TGS 

90140 IF T6S8="" THEN 5050 

5020 PRINT"Procurando...” 


8030 IF L=TL THEN CP=TL:CLS:GOS 
UB 2080:RETUAN 

5040 TF INSTR(TXS(L),TG$S)=0 THE 
N L=L+1:GOTO 5030 

5050 CP=L+1:CLS:GOSUB 2080:RETU 
AN 

5060 IF SS>58E THEN SWAP 5S,SE 
5070 SE-=SE-1 

58080 LOCATE 0,20:PRINT"Ordenand 


Os mos 

2090 FOR 1=55 TO SE-l 
5100 K=l 

BLlLO0 FOR J=I+l TO SE 


5120 TF TXS(J)<TKS(K) THEN K=d 
5130 NEXT:IF I<>K THEN SWAP TXS 
LK). TXS (1) 

5140 NEXT:CLS:GOSURB 2080:BETURN 

A rotina de ordenação é acessada a 
partir do modo editor. Leve o marcador 
para um dos extremos das linhas a se- 
rem ordenadas e tecle CTRL-O, A se- 
guir, transfira O cursor para o outro ex- 
tremo e tecle novamente CTRL-O. A or- 
denação se iniciará imediatamente, 

A rotina para a procura de palavras 
tambem é ativada dentro do modo edi- 
tor. Leve o marcador para a posição a 
partir da qual quer iniciar a busca. Te- 
cle CTRL-P e digite a palavra que deve 
ser procurada. Tecle [RETURN] para 
iniciar a busca. Assim que a expressão 
for encontrada, o marcador será colo- 
cado abaixo da linha que a contém. Pa- 
ra continuar procurando outras ocor- 
rências da mesma palavra, tecle CRTL.- 
P; digite [RETURN] apenas quando a 
palavra for solicitada, 

Para acessar a rotina de impressão, 
tecle | a partir do menu principal. Vá- 
rias perguntas serão feitas. A primeira 
refere-se à possibilidade do texto a ser 
impresso vir da memória ou de um ar- 
quivo em fita. 

A seguir, você deve responder se quer 
usar ''máscara de texto” ou não. Essa 
rotina possibilita a inserção de partes 
variáveis no texto principal. Para isso, 
coloca-se pares de colchetes (“]['") nas 
posições desejadas. Desse modo, quan- 
do o programa encontrar esse sinal no 
texto, irá substituí-lo por um bloco que 
pode ser carregado do teclado ou de um 
arquivo. Se você optar por dar entrada 
pelo teclado, deve digitar o texto neces- 
sário toda vez que for solicitado. Caso 
contrário, a informação será lida de um 
arquivo em fita (este deverá ter sido pre- 
viamente preparado para isso). 

Antes de iniciar a impressão, é pos- 
sível também alterar a configuração da 
impressora. Os valores habituais são: 80 


para a largura do formulário, 60 para 
a largura da linha de texto, 66 para o 
número total de linhas por formulário 
e 60 para o número de linhas de texto 
por página. 

Os sinais para formatar o texto são 
nossos conhecidos; o asterisco (***'') 
centraliza o texto que o segue; o amper- 
sand (“'&'') provoca um avanço de li- 
nha, de maneira que o texto subsequente 
seja iniciado na primeira posição da li- 
nha seguinte; já o cifrão (''$''), além de 
fazer isso, provoca um recuo no texto; 
finalmente, o sustenido ('' 4") faz com 
que a linha seja impressa na margem di- 
reita da página. 

Quando uma palavra não couber no 
trecho final de uma linha, deve-se evi- 
tar quebrá-la, para que ela não fique di- 
vidida por um espaço. O procedimento 
correto, neste caso, é digitar a palavra 
inteira na linha seguinte. 


é | 


3000 HOME :BLS = “IMPRIMIR”: G 

OSUB 250 

3010 IF TL < 2 THEN 3060 

3020 PRINT : PRINT : PRINT "IM 
PRIME TEXTO DA [MJEMORIA OU [D] 
ISCO? ”": PRINT "TECLE <CR> PARA 
RETORNAR AO MENU "; 

3030 GET RS: IF RS = 2CHR5 (13 
) THEN RETURN 

1040 IF RS «< 2 “Mº AND RS «< 

>» º"D" THEN 3030 

3050 PRINT RS: IF R5 = "M" THE 

N 3070 

3060  GOSUB 4500: HOME :BLS = * 

IMPRIMIR”: GOSUB 250 

3070 IF TL = | THEN PRINT 2CH 

RS (7);: VTAB 12: HTAB B: PRINT 
"NÃO HA TEXTO NA MEMORIA!": FO 

RI =1 TO 000: NEXT PRINT 

CHARS (7);: RETURN 

3080 KF = O: HTAB 1: VTAB 9: PR 


INT "QUER USAR MASCARA? "; 

3090 GET BS: IF RS < > "5" AN 
D RS < > "Nº THEN 3090 

3100 PRINT R$: IF RS = "Nº THE 
N 3220 

3110 FRINT INPUT "QUANTOS BL 
OCOS SERÃO USADOS? (MAX 20) ":N 
B: IF NB < O OR NB > 20 THEN 3] 
10 

3120 PRINT PRINT "OS BLOCOS 

SERÃO CARREGADOS DO”: PRINT "I[T 
JECLADO OU [DJ]ISCO? "; 

3130 GET R5: IF AS < >ºT” AN 
D R$ «4 > "D* THEN 3130 

3140 PRINT BRS:BL = 0O:KF = 2: 1 
Fr BS = "To 'THENKRE = IL: GOTO 32 
10 

3150 PRINT : INPUT "NOME DO AR 
QUIVO MASCARA? ":;VBS 

3160 IF ASC.(VBS) < 65 OR AS 
C (VBS) > 90 THEN 3150 

3170 VBS = VBS + ".TXT”: PRINT 


* PRINT DS;"OPEN";VBS:",S";LI;" 
DT" :L? 








o 


3180 PRINT DS;"READ";VBS: INPU 
T DV,DV 

3190 IF DV < NB THEN PRINT DS 
:"CLOSE”: ER = 2: GOTO 3580 

3200 FOR I = 1 TO NB: INPUT RP 


S(1I): NEXT PRINT D5S;"CLOSE”: 
GOTO 3220 

3210 PRINT PRINT FOR I =1 
TO NB: PRINT "BLOCO VARIAVEL ” 
;1I;"=>";: INPUT RPS(I): NEXT 
3220 HOME : GOSUB 250: VTAB 5: 


PRINT "QUER MUDAR A CONFIGURAC 
AO DA IMPRESSORA? ”"; 
3230 GET R8: IF R8 << > 
D AS < > "Nº THEN 3230 
3240 PRINT R$: IF AS = "S* 
N GOSUB 5500: HOME :BLS = 
RIMIR": GOSUB 250 
3250 VB = O:PP = 0:AS = O:LC = 
1: PRINT : PRINT PRINT "QUER 
UMA DEMONSTRACAO NA TELA? "; 
3260 GET RS: IF R$ < > "8º AN 
D RS < > "N” THEN 3260 
3270 PRINT AS:P = 0:G1 = O: IF 

AS = "N” THEN P = 1:G1l = GP 
3280 FOR K = 1 TO TL- 1: IF 
LEFTS (TXKS(K),1) = "4" AND JLEN 

(TXS(K)) - 1 > AS THEN AS = L 
EN (TXS5S(K)) 

3290 NEXT IF AS > 

= 1: GOTO 3580 
3300 K = 1: PRINT PRINT DS;"P 
R4";P: PRINT LFS; SPC( G1l);:AS 
-= "": TF AS > O THEN AL = GP + 
TW - AS 
3310 TTS = TXS(K) 

3320 IF TTS =" " THEN PRINT 
CHAS (13); SPC( G1);:PP = O:LC 
= LC + 1: GOSUB 3640: GOTO 354 

[h 

3330 


"S” AN 
THE 
"IMP 


TW THEN ER 


IF KF = O THEN 3380 

3340 FOR I = 1 TO LEN (TTS) - 
1: IF MIDS (TIS,1,2) SS > 4 
" THEN NEXT :BP = O: GOTO 3380 
3350 BP = I:BL += BL+ãa 

3360 IF BP = 1 THEN TT5S = RPS( 

BL) + MIDS (TT$,3):. GOTO 3380 
33720 TT9S = LEFTS (TTS,BP - 1) 

+ RPS(BL) + MIDS (TTS.BP + 2): 
GoTo 3340 

4380, TT = ABC (TTS): JE TI 3 

5 OR TT = 36 OR TT = 38 OR TT 
42 THEN 3460 


3390 IF PP+ LEN L(TTS) < =T 
W THEN PRINT TTS; CHAS (32)::P 
P = PP + LEN (TTS) + 1: GOTO 3 
540 

3400 TAS = LEFTS (TTS,TW - PP) 
3410 IF RIGHTS (TAS,1) =" € 
THEN 3440 

3420 IF DLEN (TAS) > 1 THEN TA 
S = LEFTS (TAS, LEN (TAS) - 1) 
- GOTO 3410 

3430 TAS = "" 

3440 PRINT TAS, CHRS (13); SPC 
( Gl):;:PP = D:LC = LC + 1: GOSU 
B 3640:TTS = MIDS (TT5S, LEN (T 
AS) + 1): IF TTS = ”"” THEN 3540 
3450 GOTO 3390 

3460 FOR I =1TO4: IF MIDS 
("LS*4",I,l) S&S > LEFTS (TT8,1 


) THEN NEXT 
3470 ON 1 GoTo 3480,3490,3510, 


3530 

3480 PRINT CHARS (13); SPC( G1 

)J::PP = O:LC = LC + 1: GOSUB J6 

40:TTS = MIDS (TT$,2): GOTO 33 

30 

3490 TT$ = MID$S (TTS,2): PRINT 
CHAS (13); SPC( Gl); SPC( JIN 


INT (TW / 4) 
GOSUB 3640: G 


T (TW / 4))::PP = 
3500 LC = LC + 1: 


OTO 3330 

3510 TTS = MIDS (TT$S,2): IF L 

EN (TTS) > TW THEN ER = 3: GOTO 
3580 

3520 PRINT CHARS (13); SPC( G1 
J4 SPC(C INT ((TW - LEN (TTS)) 
/ 2));TTS; CHR$ (13); SPC( G1) 


PP = O0:LC = LC + 1: GOSUB 364 
O: GOTO 3540 


3530 PRINT CHARS (13); SPC( AL 
Y; MIDS (TT8,2);:PP = O:LC = LC 
+ 1: GOSUB 3640: GOTO 3540 


3540 K = K + 1: IF P = O TREN 
FOR Z = 1 TO 1000: NEXT 


3550 IF K < TL THEN 3310 

3560 IF P = 1 THEN PRINT LFS; 
LFS: PRINT D$;"PR$0": RETURN 
3570 IF P = O THEN PRINT : PR 
INT : GOTO 3250 

3580 PRINT PRINT DS:"PR40": 
PRINT CHAS (7); 

3590 HOME VTAB 12: HTAB 10: 
ON ER GOTO 3600,3610,3620 

3600 PRINT "ENDERECO MUITO LON 
Go!": GOTO 3630 

3610 PRINT "NAO HA BLOCOS SUFI 
CIENTES”: PRINT 'TAB( 12)"NO AR 


QUIVO ESCOLHIDO!”: GOTO 3630 


3620 PRINT "IMPOSSIVEL CENTRAL 
IZAR!" 

3630 FOR I =1 TO Z500: NEXT 
PRINT CHARS (7);: RETURN 

1640 IF LC > TH THEN PRINT LF 
S:LFS; SPC( Gl);:LC = 1 

3650 RETURN 


5200 L = CP:TGS = "": VTAB Z0: 


HTAB 1: PRINT "PROCURA POR: *; 
S210 GET TCS: IF TCS < > CHR 
S (13) THEN TG$ = TGS + TCS: PR 
INT TCS;: GOTO 5210 

S220 IF TGS = "" THEN 5270 
5230 HTAB 1: PRINT "PROCURANDO 
cce ro CALL. — 958 

5240 IF L = TLTHENCP=TL:G 

OTO 5270 

5250 FOR I=1TO DLEN(TXS(L) 
) - 1: IF MIDS (TXS(L),I, LEN 
(T08)) < > TGS THEN NEXT :L m 
L + 1: GOTO 5240 

5260 CP = L+1 

5270 HOME : GOSUB 2090: RETURN 

5300 IF.SS > SE THEN TT = 58:5 


S = SE:8SE = TT 
5310 BE = BE - à 


5320 HTAB 1: VTAB 20: PRINT “O 

RDENANDO...” 

5330 FOR I =8STOGSE-l 

5340 K = I 

5350 FOR J=1I+1TOSE 

5360 IF TXS(J) < TXS(K) THEN K 
au 

5370 NEXT IF 1I < > K THEN T 

TS = TXS(K):TXS(K) = TXS(I):TXS 
(1) = TTS 


5380 NEXT : HOME GOSUB 2090: 


RETURN 


Para acessar as rotinas de ordenação 
e busca de palavras, você deve estar no 
modo editor. 

Se você quiser ordenar um bloco de 
dados, leve o marcador '“'>” para um 
dos extremos do bloco € tecle CTRL-O. 
Em seguida, mova-o para O outro extre- 
mo e tecle novamente CTRL-O. A or- 
denação começará imediatamente. 

Quando for preciso procurar uma de- 
terminada palavra dentro do texto, le- 
ve o marcador ao ponto escolhido. A se- 
guir tecle CTRL-P e digite a palavra de- 
sejada, respondendo à solicitação. Te- 
cle [CR] e a busca terá início. Quando 
a palavra for encontrada, o marcador 
será posicionado logo abaixo da linha 
que a contém. Para continuar procuran- 
do novas ocorrências dessa palavra, re- 
pita toda a operação. 

Ao mesmo tempo, para imprimir o 
texto, tecle 1 a partir do menu principal. 
Em seguida, responda às perguntas que 
lhe são apresentadas. 

A opção usar ''máscara de texto” 
permite acrescentar ao texto principal 
blocos variáveis, com os quais podem 
ser produzidas, por exemplo, cartas in- 
dividualizadas. Se você fizer essa opção, 
deixe nos locais apropriados do texto 
um sinal “']['* para cada bloco. Esses si- 
nais serão substituídos pelo texto ade- 
quado no momento da impressão. 

O texto pode ser digitado a partir do 
teclado, ou lido de um arquivo em dis- 
co. No caso do teclado, o programa so- 
licitará que você digite a frase à medida 
que os sinais sejam encontrados no tex- 
to. Se os blocos forem carregados do 
disco, o computador lerá um arquivo se- 
quencial que você deverá ter criado com 
os dados necessários, usando o próprio 
programa (se você quiser aproveitar um 
arquivo já existente, deve acrescentar 
“ TXT” ao nome dele). Cuide para que 
os dados estejam na ordem correta e pa- 
ra que sejam suficientes para todas as 
solicitações. 

O texto pode ser formatado com os 
sinais habituais. (Eles devem sempre ser 
colocados na primeira posição da linha.) 
O asterisco ('*'") centraliza o conteú- 
do da linha; o ampersand (“'&”') provo- 
ca um avanço de linha da impressora, 
colocando o texto subsequente a partir 
do início da próxima linha; o cifrão 
(:'$'") tem a mesma função, com a di- 
ferença de que provoca um recuo no co- 
meço do texto; o sustenido ('' %"") faz 
as linhas que o contêm serem colocadas 
à margem direita do texto. 

Evite inserir blocos variáveis nas li- 
nhas em que aparece o sustenido. 





LINHA 


Apple Il + 

Apple Il+ 
Apple Il + 
Apple Il + 
Apple Il + 
Apple ll + 
Apple + 
Apple ll+ 
Apple Il + 
Apple + 
Apple + 
Apple + 
Apple ll+ 
Apple ll + 
Apple ll+ 
Apple ll + 
Apple Il + 
Apple ll + 
Apple Il + 
Apple + 
Apple Hl+ 
Apple Il + 

Apple Il + 
Apple ll + 
Apple ll + 
Apple ll + 
Apple Il + 
Apple ll+ 
Apple lle 

Apple Ile 


Apple Ile 
MSX 


MSX 


FABRICANTE Po 


Appletronica 
CCE 

CPA 

CPA 

Digitus 
Dismac 
ENIAC 
Franklin 
Houston 
Magnex 
Maxitronica 
Maxitronica 
Maxitronica 
Maxitronica 
Microcraft 
Milmar 
Milmar 
Milmar 
Omega 
Polymax 
Polymax 
Spectrum 
Spectrum 
Suporte 
Sycomig 
Unitron 
Victor do Brasil 
Victor do Brasil 
Microcraft 
Microdigital 
Spectrum 
Gradiente 
Sharp 


MODELO 


Thor 2010 
MC-4000 Exato 
Absolutus 


| Polaris 


DGT-AP 
D-8100 
ENIACII 
Franklin 
Houston AP 
DMII 
MX-2001 
MX-48 

MX.64 
Maxitronic | 
Crafll Plus 
Apple Il Plus 
Apple Master 
Apple Senior 
MC-400 
Maxxi 

Poly Plus 
Microengenho | 
Spectrum ed 
Venus ll 

SICI 

API 

Elppa ll Plus 
Elppa Jr. 
Craftlle 
TK-3000 He 


"Microengenho ll 


Expert GPC4 
Hotbit HB-8000 


FABRICANTE 


Appletronica 
Apply 

CCE 

CPA 

CPA 
Codimex 
Digitus 
Digitus 
Digitus 
Dismac 
Dismac 
Dismac 
Dynacom 
ENIAC 
Engebras 
Filcres 
Pranklin 
Gradiente 
Houston 
Kemitron 
LNW 

LZ 

Magnex 
Maxitronica 
Maxitronica 
Maxitronica 
Maxitronica 
Microcraft 
Microcraft 
Microdigital 
Microdigital 
Microdigital 
Microdigital 


MODELO 


Thor 2010 
Apply 300 
MC-4000 Exato 
Absolutus 
Polaris 
CS-6508 
DGT100 
DGT-1000 
DGT.AP 
D-8000 
D-8001/2 
D-8100 
MX1600 
ENIACII 
AS+1000 
NEZ-8000 
Franklin 
Expert GPC1 
Houston AP 
Naja 800 
LNW-B0 
Color 64 
DMI 
MX-2001 
MX-48 
MX-64 
Maxitronic | 
Craft ll Plus 
Caftlle 
TK-3000 Ile 
TK-82C 
TK-83 

TK-85 


PAÍS 


Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 


Brasil 


Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
USA 

Brasil 
Brasil 
Brasil 
USA 

Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 


LINHA 


Apple Il+ 


o Sinclair ZX-81 


Apple ll + 
Apple + 
Apple ll + 
TRS-Color 
TRS-80 Mod.lil 
TRS-80 Mod.lil 
Apple + 
TRS-80 Mod.! 
TRS-80 Mod. 
Apple ll + 
TRS-Color 
Apple ll+ 
Sinclair ZX-81 
Sinclair ZX-81 
Apple ll + 
MSX 

Apple Il + 
TRS-80 Mod.lll 
TRS-80 Mod. | 
TRS-Color 
Apple Il + 
Apple Il + 
Apple Il + 
Apple Il + 
Apple ll + 
Apple Il+ 
Apple lle 
Apple lle 
Sinclair ZX-81 
Sinclair ZX-81 
Sinclair ZX-81 


Microdigital TK-90X Brasil 
Microdigital TKS-800 Brasil 


Sinclair Spectrum | 
TRS-Color 


Microdigital TK-90X 
Timex 2000 


Sinclair Spectrum 
Sinclair Spectrum Timex 


Sinclair ZX-81 
Sinclair ZX-81 
Sinclair ZX-81 
Sinclair ZX-81 
Sinclair ZX-81 
Sinclair ZX-81 
Sinclair ZX-81 
Sinclair ZX-81 
Sinclair ZX-81 
Sinclair ZX-81 
TRS-80 Mod.I 
TRS-80 Mod. | 
TRS-80 Mod. | 
TRS-80 Mod.! 
TRS-80 Mod.lil 
TRS-BO Mod.il 
TRS-80 Mod.lil 
TRS-80 Mod.lil 
TRS-80 Mod.lil 
TRS-80 Mod.lll 
TRS-80 Mod.lil 
TRS-80 Mod.IV 
TRS-80 Mod.IlV 
TRS-Color 
TRS-Color 
TRS-Color 
TRS-Color 
TRS-Color 


Apply 
Engebras 


“Filcres 


Microdigital 
Microdigital 
Microdigital 
Prologica 
Ritas 

Timex 
Timex 
Dismac 
Dismac 
LNW 

Video Genie 
Digitus 
Digitus 
Kemitron 
Prologica 
Prologica 
Sysdata 
Sysdata 
Multix 
Sysdata 
Codimex 
Dynacom 
LZ 
Microdigital 
Prologica 


Apply 300 
AS41000 
NEZ-8000 
TK-B2C 
TK-83. 
TK-85 
CP-200 
Ringo R-470 
Timex 1000 
Timex 1500 
D-8000 | 
D-8001/2 
LNW-80 
Video Genie | 
DGT100 
DGT-1000 
Naja 800 
CP-300 
CP-500 
Sysdata Ill 
Sysdata Jr. 
MX-Compacto 
Sysdata IV 
CS-6508 
MX-1600 
Color 64 
TKS-800 
CP-400 


Milmar 
Milmar 


“Milmar 


Multix 
Omega 
Polymax 
Polymax 
Prologica 
Prologica 
Prologica 
Prologica 
Ritas 

Sharp 
Spectrum 
Spectrum 
Spectrum 
Suporte 
Sycomig 
Sysdata 
Sysdata 
Sysdata 
Timex 
Timex 
Timex 
Unitron 
Victor do Brasil 
Victor do Brasil 
Video Genie 


Apple ll Plus 
Apple Master 
Apple Senior 
MX-Compacto 
MC-400 

Maxxi 

Poly Plus 
CP-200 

CP-300 

CP-400 

CP.500 

Ringo R-470 
Hotbit HB-8000 
Microengenho | 
Microengenho Il 
Spectrum ed 
Venus ll 

SICI 

Sysdata Ill 
Sysdata IV 
Sysdata Jr. 
Timex 1000 
Timex 1500 
Timex 2000 
APII 

Elppa Il Plus 
Elppa Jr. 

Video Genie! 


Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
USA 

USA 

USA 

Brasil 
Brasil 
Brasil 
USA 


Apple Il + 
Apple ll + 
Apple Il + 
TRS-B0 Mod.IV 
Apple Il + 
Apple Il + 
Apple l+ 
Sinclair ZX-81 
TRS-80 Mod.Ill 
TRS-Color 
TRS-80 Mod.lll 
Sinclair ZX-81 
MSX 

Apple Il+ 
Apple Ile 
Apple l+ 
Apple Il + 
Apple Il + 
TRS-80 Mod. 
TRS-80 Mod.IV 
TRS-80 Mod.lll 
Sinclair ZX-81 
Sinclair ZX-81 


Sinclair Spectrum 


Apple Il + 
Apple Il + 
Apple ll+ 
TRS-80 Mod. | 


EN an Tin macas 
é, UM LOGUTIE SI qi , 


“INPUT foi especialmente projetado para PN 
“ microcomputadores compatíveis com as sete principais Sinclair E TARSO TK:2000 MSX 


“linhas existentes no mercado. 
ba, então emp a sr 


“Os blocos de textos e listagens de programas po pera 
Eme renes E UM [06] Semp e 
; identificados por meio dos seguintes sim os: TRS-Color pune dl 


ED Dm me eee mo meto mm o em em 








IRananNO PRÓXIMO NÚMEROEEEEEEHI 


PROGRAMAÇÃO BASIC 
Sejam quais forem os seus dados, será mais fácil entendê-los 
se você organizá-los em gráficos de barras e segmentos. 


PROGRAMAÇÃO BASIC 
Teclas programáveis: um recurso fantástico oferecido pelo 
MSX para dar aos programas um acabamento impecável. 


PROGRAMAÇÃO: BASIC 
O desenho em três dimensões. Projeções isométricas. Montagem 
de um cubo com grades. Mudança de coordenadas. 


cuRSO PRÁTICO 





TO ZA 
| cUTURM 
| -— 
| 


| d 
| EM] 
CH 


